用vba 在《数据源》工作表D列，查找“合计”最后一次出现的行次，写入

bbcc100 · 发表于 2023-5-19 09:15

如何用VBA 在《数据源》工作表D列，查找“合计”最后一次出现的行次(精确匹配)，写入本工作表《首页》工作表的C4单元格

shiruiqiang · 发表于 2023-5-19 09:39

1、字典，会求最后一个
2、从最后行查找，找到就退出

slonby · 发表于 2023-5-19 09:41

Private Sub Worksheet_Activate()
Dim ar, n%
ar = Worksheets("数据源").UsedRange
n = Application.WorksheetFunction.CountIf(Worksheets("数据源").Columns(4), "合计")
For i = UBound(ar) To 2 Step -1
If ar(i, 4) = "合计" Then
      Worksheets("首页").[c4] = ar(i, 4) & " 出现的次数为: " & n
      Worksheets("首页").[d4] = "最后一次借方：" & ar(i, 6)
      Worksheets("首页").[e4] = "最后一次贷方：" & ar(i, 7)
      Exit For
End If
Next
Worksheets("首页").Columns(3).AutoFit
  Worksheets("首页").Columns(4).AutoFit
Worksheets("首页").Columns(5).AutoFit
End Sub

slonby · 发表于 2023-5-19 09:42

不懂理解的对不对

半百 · 发表于 2023-5-19 10:49

这样可以吗？

bbcc100 · 发表于 2023-5-22 10:15

半百发表于 2023-5-19 10:49
这样可以吗？

https://club.excelhome.net/forum ... ;page=1#pid11255276谢谢老师，如您代码所示，就是需要这样的结果，谢谢大侠

bbcc100 · 发表于 2023-5-22 10:16

slonby 发表于 2023-5-19 09:42
不懂理解的对不对

谢谢大侠，对的

bbcc100 · 发表于 2023-5-22 10:16

slonby 发表于 2023-5-19 09:41
Private Sub Worksheet_Activate()
Dim ar, n%
ar = Worksheets("数据源").UsedRange

谢谢大侠的热心指导，学到了

bbcc100 · 发表于 2023-5-22 10:17

shiruiqiang 发表于 2023-5-19 09:39
1、字典，会求最后一个
2、从最后行查找，找到就退出

谢谢大侠的指点

cyq4896 · 发表于 2023-5-22 20:22

参与一下……

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

[求助] 用vba 在《数据源》工作表D列，查找“合计”最后一次出现的行次，写入