跨表提单元格金额

xing_chen

老师，有簿，我希望循环提取单元格金额。敬请老师赐教！谢谢！

高个子

1. Sub kdy()
   
2. For Each sht In Sheets
   
3.     If VBA.IsNumeric(sht.Name) Then
   
4.         n = Sheets(sht.Name & "B").Cells(Rows.Count, 1).End(xlUp).Row
   
5.         For i = 1 To n
   
6.             If Sheets(sht.Name & "B").Range("b" & n + 1) = "合计" Then
   
7.                 sht.Range("e2") = Sheets(sht.Name & "B").Range("e" & n + 1)
   
8.             End If
   
9.         Next
   
10.     End If
    
11. Next
    
12. End Sub
    

复制代码

nie414006

xing_chen

nie414006 发表于 2023-2-6 18:41

谢谢老师！不过，我的本意是用VBA,可以援手吗？

gwjkkkkk

xing_chen 发表于 2023-2-6 18:48
谢谢老师！不过，我的本意是用VBA,可以援手吗？

Option Explicit
Sub test()
    Dim ar
    With ActiveSheet
       If VBA.IsNumeric(.Name) Then
          ar = Sheets(.Name & "B").[A1].CurrentRegion
          .[E2] = ar(UBound(ar), 5)
       End If
    End With
End Sub

gwjkkkkk

请楼主参考附件。。。

xing_chen

高个子 发表于 2023-2-6 18:29

谢谢老师!但簿中置入代码后为什么没有反应喃？

xing_chen

gwjkkkkk 发表于 2023-2-6 19:22
请楼主参考附件。。。

老师，你的代码可以运行，但我将资料补全后置入合计的代码后，却没有反应！可以再看看嘛

xing_chen

高个子 发表于 2023-2-6 18:29

老师，我将数据补齐了，附在下面。有空看看！谢谢！

高个子

xing_chen 发表于 2023-2-6 20:03
谢谢老师!但簿中置入代码后为什么没有反应喃？

你原本有小计但是现在没有，当然没反应了

1. Sub kdy()
   
2. For Each sht In Sheets
   
3.     If VBA.IsNumeric(sht.Name) Then
   
4.         sht.Range("e2") = Application.WorksheetFunction.Sum(Sheets(sht.Name & "B").Range("e:e"))
   
5.     End If
   
6. Next
   
7. End Sub
   

复制代码