回复：Excel可以做什么，Excel工作笔记[全员乱入]

今天不小心将某列排序并且保存了，幸好有序号列，升序还原了原来的顺序。为了消掉那个不和谐的排序标志，增加了一列重新标序号，删除原序号列。
序号是用公式填的，A4=if(B4<>"",A3+1,""),当将某行剪切到另一行时发觉，公式引用的单元格还是之前的，没有因为位置的改变而改变。于是初步得出一个结论，复制使用相对引用的公式时，引用会自动调整，剪切使用相对引用的公式时，相对引用相当于绝对引用。

@青水蛙鸣
Sub test()
Dim i As Integer
Cells(1, 1).Select
For i = 1 To 99
Call FindRest(i, 500, "")
Next i
End Sub
Sub FindRest(ByVal iStart As Integer, ByVal iTotal As Integer, ByVal sNum As String)
Dim i As Integer
If iStart > iTotal Then Exit Sub
sNum = sNum & "+" & iStart
If iStart = iTotal Then
Selection = sNum
Selection.Offset(1, 0).Select
Exit Sub
End If
For i = iStart To iTotal
Call FindRest(i + 1, iTotal - iStart, sNum)
Next i
End Sub

这样会快点
Dim flag As Boolean
Sub test()
Dim i As Integer
Cells(1, 1).Select
For i = 1 To 99
Call FindRest(i, 500, "")
Next i
End Sub
Sub FindRest(ByVal iStart As Integer, ByVal iTotal As Integer, ByVal sNum As String)
Dim i As Integer
If iStart > iTotal Then Exit Sub
sNum = sNum & "+" & iStart
If iStart = iTotal Then
Selection = sNum
Selection.Offset(1, 0).Select
flag = True
Exit Sub
End If
For i = iStart To iTotal
Call FindRest(i + 1, iTotal - iStart, sNum)
If flag Then
flag = False
Exit Sub
End If
Next i
End Sub

经常用excel辅助写syntax。
=A1&b1&"_N."
用这种方法写代码事半功倍。

比如说，这样一行命令：
NOMREG M16312212C (BASE=FIRST ORDER=ASCENDING) WITH ZGENDER Zsum Interaction /PRINT=LRT.
M16312212C是变量名，我要对近100个变量重复执行上述操作，就把变量前面的语句放在第一列， 变量后面的语句放在第三列，然后在第二列里把变量粘过来，就OK了。
第四列 (=A1&" "&B1&" "&C1)，把前三列串起来，粘到数据分析软件（我用SPSS的）里就可以RUN了。
这是最简单的啦~

自学的自定义函数
Function qqq(a As Integer, b As Integer, c As Integer) As String
q = 0
For i = Column(a) To Column(b) Step c
If Cells(Row(a), i) <> 0 Then
q = q + Cells(Row(a), i)
End if
Next i
qqq = q
End Function
求教一下问题出在哪？

Function qqq(a As Range, b As Range, c As Integer) As String
q = 0
For i = a.Column To b.Column Step c
q = q + Cells(a.Row, i)
Next i
qqq = q
End Function
这是目前的行间隔求和

在网上看了下VBA的简单介绍，试了下HELLOW word~然后来提问了。。。。。我现在有假设10份报表，每一份有表1表2，表一是汇总，表2是明细，我需要把10份的表一都黏贴进一个汇总表的表1里。。明细就复制到汇总表的表2，3,4，-11.需要用到哪些语句？

@tcwang11
Function qqq(a As Range， c As Integer)
dim arr,ir&.ic&
arr=a.value
for ir=1 to ubound(arr) step c
for ic= 1 to ubound(arr,2) step c
qqq=val(arr(ir,ic)+qqq
next
next
end function
a是要求和的区域，c是间隔步长
以上是行、列隔相同步长求和，。没验证。
另外，如有必要。加条件判断下

自定义函数，如果想要知道这个函数写在那里了，可以用caller来得到。估计对107楼的有帮助。@tcwang11 @青水蛙鸣

试试看 @ws786873 在所有打开的表格中，如果名称满足条件，就复制粘贴然后自动跳到下一行
Sub ws786873()
a = "汇总费登记4月.xls"
b = "*费登记4月.xls"
Workbooks(a).Activate
Sheets(1).Select
Rows(2).Select
For Each wb In Workbooks
If wb.Name Like b Then
If wb.Name <> a Then
wb.Sheets(1).Rows(2).Copy
Selection.PasteSpecial Paste:=xlPasteValues
Selection.Offset(1).Select
wb.Sheets(2).Copy Before:=Workbooks(a).Sheets(2)
End If
End If
Next
End Sub

线性规范你熟不熟？不是用excel自带的规划求解，如果变通下，用vba去做线性规划，有没有这方面的代码？

我又来灌水了！
顺便求助：vba有什么事件可以实现ctrl+d和ctrl+r的操作( ⊙ o ⊙ )！

数组公式的话有数组公式的属性 FormulaArray

最近正在学excel，用控件做了个小游戏