洒家肉山大魔王 发表于 2021-10-25 14:56:00

如何通过函数，把简单引用，变成公司名称条件应用，达到如图效果 ...



不老的传说 发表于 2021-11-15 12:28:23

=INDIRECT(B4&"!C3")

能源藻类 发表于 2021-11-25 17:40:50

=INDIRECT(B5&"!C3")

刘佳琦 发表于 2021-11-27 00:57:30

Sub i()
Dim i, ar(1 To 65536, 1 To 3)
Sheets("汇总表"). = ""
For i = 1 To Sheets.Count
If Sheets(i).Name <> "汇总表" Then
k = k + 1
ar(k, 1) = k
ar(k, 2) = Sheets(i).Name
ar(k, 3) = Sheets(i).
End If
Next
Sheets("汇总表")..Resize(k, 3) = ar
End Sub

良少 发表于 2022-1-13 11:06:59

搞定，谢谢两位大神
页: [1]
查看完整版本: 如何通过函数，把简单引用，变成公司名称条件应用，达到如图效果 ...