解读一句代码就一句，谢谢

zhangcheng6688

• Sub Macro1()
•     Dim c As Range, r As Range, firstAddress$, i&, m&
•     m = [a65536].End(xlUp).Row + 1
•     With Range("a:a")
•         Set c = .Find("aaaaa", Cells(Rows.Count, 1), , 1)
•         If Not c Is Nothing Then
•             firstAddress = c.Address
•             Do
•                 i = i + 1
•                 Set r = c.Offset(1).Resize(m).Find("aaaaa", , , 1)
•                 If Not r Is Nothing Then
•                     c.Resize(r.Row - c.Row).Copy Cells(1, i + 13)
•                 Else
•                     c.Resize(m - c.Row).Copy Cells(1, i + 13)
•                 End If
•                 Set c = .FindNext(c)
•             Loop While Not c Is Nothing And c.Address <> firstAddress
•         End If
•     End With
• End Sub
• 从论坛里面看来的一段代码，请教大家一个问题，.Find("aaaaa", Cells(Rows.Count, 1), , 1)方法里面what:="aaaaa",after:=Cells(Rows.Count, 1),lookin省略，lookat:=1,1具体代表哪个参数，是xlwhole还是xlpart?? 参数顺序是不是这样的？
  

山菊花

xlwhole与xlpart是一个常数，要知道它等于几，可以利用立即窗口输出显示这个值。
VBE窗口中按Ctrl+G打开立即窗口，输入：
？xlwhole <回车>
？xlpart <回车>

在过程中运行 Debug.Print xlWhole 或者 MsgBox xlWhole，也可显示它的值。

zhangcheng6688

山菊花 发表于 2018-10-11 16:22
xlwhole与xlpart是一个常数，要知道它等于几，可以利用立即窗口输出显示这个值。
VBE窗口中按Ctrl+G打开立 ...

.Find("aaaaa", Cells(Rows.Count, 1), , 1)方法里面what:="aaaaa",after:=Cells(Rows.Count, 1),lookin省略，lookat:=1,请问顺序是不是这样的？？

山菊花

zhangcheng6688 发表于 2018-10-12 14:38
.Find("aaaaa", Cells(Rows.Count, 1), , 1)方法里面what:="aaaaa",after:=Cells(Rows.Count, 1),lookin ...

按F1查看帮助。