vba如何对合并单元格右侧的数据进行求和与计数

SCWYZJ · 发表于 2023-2-16 21:35

18楼老师已帮我实现了，非常感谢各位老师的帮助。

gwjkkkkk · 发表于 2023-2-16 22:30

ykcbf1100 发表于 2023-2-16 16:09
你不一定有我大哦，我是63年出生的。

草爷，老当益壮。。。

ykcbf1100 · 发表于 2023-2-17 08:26

gwjkkkkk 发表于 2023-2-16 22:30
草爷，老当益壮。。。

要向你学习啊，你真的很勤奋啊。

lushang2018 · 发表于 2023-2-17 22:20

Dim i, j, k, m
Sheet1.Activate
For i = 4 To Cells(Rows.Count, "D").End(xlUp).Row
k = 0: m = 0
If Cells(i, 3).MergeCells = True Then
For j = 1 To Cells(i, 3).MergeArea.Count
If Cells(i + j - 1, 4) <> "" Then
k = k + 1
m = m + Cells(i + j - 1, 4)
End If
Next
Cells(i, 2) = k
Cells(i, 3) = m
i = i + Cells(i, 3).MergeArea.Count - 1
Else
If Cells(i, 4) <> "" Then
Cells(i, 2) = 1
Cells(i, 3) = Cells(i, 4)
End If
End If
Next

复制代码

SCWYZJ · 发表于 2023-2-18 11:27

准提部林发表于 2023-2-16 21:01
Sub TEST_A1()
Dim R&, X As Range, C, V
R = [d65536].End(3).Row

老师您好，可否抽空帮忙看看这贴。谢谢 https://club.excelhome.net/thread-1653833-1-1.html

SCWYZJ · 发表于 2023-2-18 16:12

准提部林发表于 2023-2-16 21:01
Sub TEST_A1()
Dim R&, X As Range, C, V
R = [d65536].End(3).Row

老师您好，我用你发的代码在我的表中运行时，出现这情况，统计个数不对，而且把姓名本是空的地方都填入了0，把0也算一个，0不计算。麻烦您帮我看看，指点修改下。谢谢

准提部林 · 发表于 2023-2-18 19:19

SCWYZJ 发表于 2023-2-18 16:12
老师您好，我用你发的代码在我的表中运行时，出现这情况，统计个数不对，而且把姓名本是空的地方都填入了 ...

表格與1樓差太多, 那來的"求和"??
上傳實際檔案看看~~

SCWYZJ · 发表于 2023-2-19 09:09

准提部林发表于 2023-2-18 19:19
表格與1樓差太多, 那來的"求和"??
上傳實際檔案看看~~

谢谢，辛苦了

准提部林 · 发表于 2023-2-19 09:22

SCWYZJ 发表于 2023-2-19 09:09
谢谢，辛苦了

Sub TESTB()
Dim R&, X As Range, C, V
R = [B65536].End(3).Row '以Ｂ列取得最後非空行
For i = R To 5 Step -1  '標題第４行, 第５行才是資料起始
Set X = Cells(i, "F") 'Ｆ列為計數存放位置
C = C + IIf(X(1, 6) = "", 0, 1) '以Ｆ列右方６格檢查非空並計數
'V = V + Val(X(1, 6))  '本表格沒有[求和]問題---可刪去
If X.Address = X.MergeArea(1).Address Then '合併區首格位置
   X = C '填入計數
   C = 0 '計數器歸零
End If
Next i
End Sub

SCWYZJ · 发表于 2023-2-19 18:53

准提部林发表于 2023-2-19 09:22
Sub TESTB()
Dim R&, X As Range, C, V
R = .End(3).Row '以Ｂ列取得最後非空行

可以，谢谢老师

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

[求助] vba如何对合并单元格右侧的数据进行求和与计数

评分

评分

评分