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

洒家肉山大魔王

新建 Microsoft Excel 工作表.zip (8.47 KB, 下载次数: 11)

2021-10-25 14:56 上传

点击文件名下载附件
新建 Microsoft Excel 工作表.zip

不老的传说

=INDIRECT(B4&"!C3")

能源藻类

=INDIRECT(B5&"!C3")

刘佳琦

Sub i()
Dim i, ar(1 To 65536, 1 To 3)
Sheets("汇总表").[a4:c65536] = ""
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).[c3]
  End If
Next
Sheets("汇总表").[a4].Resize(k, 3) = ar
End Sub

良少

搞定，谢谢两位大神