[已解决]VBA代码求助

dlmn

我编写一段代码，在汇总表里汇总各SHEET里的数据，但最终都是数值 ，我想要带链接的，请帮助看一下怎么改，谢谢了。


Sub DL()
Dim arr1(), arr2()
For Each sh In Sheets
    If sh.Name <> "DL" Then
        With Sheets("DL")
            .Cells(4 + N, 5) = sh.[F15]
            .Cells(4 + N, 6) = sh.[H15]
            .Cells(4 + N, 7) = sh.[J15]
            .Cells(4 + N, 8) = sh.[L15]
            .Cells(4 + N, 9) = sh.[N15]
            .Cells(4 + N, 10) = sh.[P15]
            .Cells(4 + N, 11) = sh.[R15]
            .Cells(4 + N, 12) = sh.[T15]
            .Cells(4 + N, 13) = sh.[V15]
        End With
        N = N + 1
        sh.Name = sh.[D8]
End If
Next
End Sub

最佳答案

月排行榜 / 总排行榜

高

2021-8-25 18:13

Sub DL()
Dim n
For Each sh In Sheets
    If sh.Name <> "DL" Then
        With Sheets("DL")
            .Cells(4 + n, 5) = "=" & sh.Name & "!f15"
            .Cells(4 + n, 6) = "=" & sh.Name & "!h15"
            .Cells(4 + n, 7) = "=" & sh.Name & "!j15"
            .Cells(4 + n, 8) = "=" & sh.Name & "!l15"
            .Cells(4 + n, 9) = "=" & sh.Name & "!n15"
            .Cells(4 + n, 10) = "=" & sh.Name & "!p15"
            .Cells(4 + n, 11) = "=" & sh.Name & "!r15"
            .Cells(4 + n, 12) = "=" & sh.Name & "!t15"
            .Cells(4 + n, 13) = "=" & sh.Name & "!v15"
        End With
        n = n + 1
        sh.Name = sh.[D8]
End If
Next
End Sub

跳转到最佳答案楼层

dlmn

有大神可以指点一下吗

dlmn

在线等大神

高

Sub DL()
Dim n
For Each sh In Sheets
    If sh.Name <> "DL" Then
        With Sheets("DL")
            .Cells(4 + n, 5) = "=" & sh.Name & "!f15"
            .Cells(4 + n, 6) = "=" & sh.Name & "!h15"
            .Cells(4 + n, 7) = "=" & sh.Name & "!j15"
            .Cells(4 + n, 8) = "=" & sh.Name & "!l15"
            .Cells(4 + n, 9) = "=" & sh.Name & "!n15"
            .Cells(4 + n, 10) = "=" & sh.Name & "!p15"
            .Cells(4 + n, 11) = "=" & sh.Name & "!r15"
            .Cells(4 + n, 12) = "=" & sh.Name & "!t15"
            .Cells(4 + n, 13) = "=" & sh.Name & "!v15"
        End With
        n = n + 1
        sh.Name = sh.[D8]
End If
Next
End Sub

高

只为说明问题，其实那几句可以用循环的。

dlmn

高 发表于 2021-8-25 18:15
只为说明问题，其实那几句可以用循环的。

感谢大神，完美解决！

dlmn

高 发表于 2021-8-25 18:13
Sub DL()
Dim n
For Each sh In Sheets

表A,表B为两个不同的EXCEL文件都含有多个sheet，相同点两个文件里的部分sheet名称相同，要建立两个文件之间的sheet链接，具体如下，请大神帮助如何建立起下列关系，程序怎么写，多谢。

D4=D6  
D5=D7
D6=D8
I6=J8
H25=AE1
I25=AF1
J25=AB1
M25=Z1
C39:D49=X18:Y28

T79=U31
T81=U32
T84=U33
I110:I119=Z18:Z27
P110=K45