Question

vba中这些代码是什么意思？谁能详解一下

Sub 列出所有文件名()
Dim A%
A = [A65536].End(xlUp).Row
If A > 1 Then: Range("A2:A" & A).ClearContents
Dim xlsFile As String, XX As String
XX = Range("C2").Text
xlsFile = Dir(ActiveWorkbook.Path & "\" & XX)
Do
If InStr(1, xlsFile, "操作表") = 0 Then
Cells(([A65536].End(xlUp).Row + 1), 1) = xlsFile

End If
xlsFile = Dir
Loop Until Len(xlsFile) = 0

Answer 1

在当前文件所在的文件夹下，找文件名称中含有“操作表”的文件，并把这些文件的全名填写在A2、A3、……

追问

能说详细点吗？
一句的解释吗？

追答

Sub 列出所有文件名()
Dim A% '声明A变量为整型
A = [A65536].End(xlUp).Row '找A列最下面一个有数据的单元格对应的行号
If A > 1 Then: Range("A2:A" & A).ClearContents '如果行号大于1，则把A2到最下面那个单元格的内容全部清空
Dim xlsFile As String, XX As String '声明xlsFile和XX两个字符型变量
XX = Range("C2").Text ‘把单元格C2的值赋给XX
xlsFile = Dir(ActiveWorkbook.Path & "\" & XX) '查找当前文件所在的文件夹中，文件名是XX对应值的文件（就是C2单元格文字作为文件名的文件），返回值是文件名，赋给xlsFile
Do '循环
If InStr(1, xlsFile, "操作表") = 0 Then '如果xlsFile文件名中含有“操作表”三个字
Cells(([A65536].End(xlUp).Row + 1), 1) = xlsFile '在A列自上而下找第一个空白单元格，填写找到的文件名

End If '结束如果
xlsFile = Dir '查找下一个文件
Loop Until Len(xlsFile) = 0 '一直循环到找不到