跨表提单元格金额

xing_chen · 发表于 2023-2-6 17:57

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

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

Sub kdy()
For Each sht In Sheets
If VBA.IsNumeric(sht.Name) Then
n = Sheets(sht.Name & "B").Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To n
If Sheets(sht.Name & "B").Range("b" & n + 1) = "合计" Then
sht.Range("e2") = Sheets(sht.Name & "B").Range("e" & n + 1)
End If
Next
End If
Next
End Sub

复制代码

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

xing_chen · 发表于 2023-2-6 18:48

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

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

gwjkkkkk · 发表于 2023-2-6 19:20

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 · 发表于 2023-2-6 19:22

请楼主参考附件。。。

xing_chen · 发表于 2023-2-6 20:03

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

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

xing_chen · 发表于 2023-2-6 20:07

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

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

xing_chen · 发表于 2023-2-6 20:10

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

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

高个子 · 发表于 2023-2-6 21:04

本帖最后由高个子于 2023-2-6 21:07 编辑

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

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

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

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 跨表提单元格金额

评分

评分