如何实现填充公式的时候只变化工作薄名称

rumengruyun

如何实现在自动填充公式的时候只变化工作薄名称

利息.rar (32.43 KB, 下载次数: 21)

2014-1-14 09:57 上传

点击文件名下载附件

山菊花

张三、李四是工作表名称，不是工作簿名称。
=INDIRECT(A3&"!D9")

zhangheng366

山菊花 发表于 2014-1-14 10:21
张三、李四是工作表名称，不是工作簿名称。
=INDIRECT(A3&"!D9")

执行后为什么d9两边有单引号呢，请问怎么解决

1. Sub test()
   
2. Dim Mworksheet
   
3. ReDim arr(0 To Sheets.Count - 1)
   
4. For Each Mworksheet In Worksheets
   
5.     If Mworksheet.Name <> ActiveSheet.Name Then
   
6.         arr(i) = Mworksheet.Name
   
7.         i = i + 1
   
8.     End If
   
9. Next
   
10. For j = 0 To i
    
11.     Range("H" & (j + 3)) = "=" & arr(j) & "!d9"
    
12. Next
    
13. End Sub
    

复制代码

山菊花

没见到有单引用。

zhangheng366

山菊花 发表于 2014-1-14 10:49
没见到有单引用。

你执行我的代码，公式出来后，你会看到公式是错误的#NAME?

山菊花

知道了，有单引用是原名称不符合Excel规定，自动修正的，不用管它，只有这样才可以正常使用。
另有一处需要修改：
Sub test()
Dim Mworksheet
ReDim arr(0 To Sheets.Count - 1)
For Each Mworksheet In Worksheets
    If Mworksheet.Name <> ActiveSheet.Name Then
        arr(i) = Mworksheet.Name
        i = i + 1
    End If
Next
For j = 0 To i - 1
    Range("H" & (j + 3)) = "=" & arr(j) & "!d9"
Next
End Sub