我必须计算列中不同值的数量,并使用不同的值打印它并在另一个表中计数.我正在处理这段代码,但由于某种原因,它没有返回任何结果.谁能告诉我我错过了哪一块!
Dim rngData As Range
Dim rngCell As Range
Dim colWords As Collection
Dim vntWord As Variant
Dim Sh As Worksheet
Dim Sh1 As Worksheet
Dim Sh2 As Worksheet
Dim Sh3 As Worksheet
On Error Resume Next
Set Sh1 = Worksheets("A")
Set Sh2 = Worksheets("B")
Set Sh3 = Worksheets("C")
Sh1.Range("A2:B650000").Delete
Set Sh = Worksheets("A")
Set r = Sh.AutoFilter.Range
r.AutoFilter Field:=24
r.AutoFilter Field:=24, Criteria1:="My Criteria"
Sh1.Range("A2:B650000").Delete
Set colWords = New Collection
Dim lRow1 As Long
lRow1 = <some number>
Set rngData …我希望DOS命令找到给定目录中的文件计数(该计数应该具有该目录下的子目录的单独条目).
例如,如果Tech是一个目录,它有2个文件和2个子目录(Info Tech,Services),并且子目录各有2个文件,我的结果应该看起来像
Tech 6
Info Tech 2
Services 2
如果有人可以帮助我使用这样的命令行会很棒......