请教老师，用VBA或公式把G列每行的数合并，其合并结果在H列显示，谢谢！

cartel

请教老师，用VBA或公式把G列每行的数合并，其合并结果在H列显示，谢谢！.zip (8.07 KB, 下载次数: 5)

2023-2-26 10:33 上传

点击文件名下载附件

追风少年丶斌

Sub MergeColumnG()
    Dim rng As Range
    Dim i As Long
    Set rng = Range("G1:G" & Range("G" & Rows.Count).End(xlUp).Row)
    For i = 1 To rng.Rows.Count
        Range("H" & i).Value = Application.WorksheetFunction.Sum(Range("G" & i & ":G" & i + 1))
    Next i
End Sub

杨建营

请楼主参考。

shiruiqiang

正则式写法

cartel

杨建营 发表于 2023-2-26 11:04
请楼主参考。

杨建营 你好！
感谢回复！
我只需要在H列显示和值，请帮再调下，
再次感谢！

杨建营

cartel 发表于 2023-2-26 11:32
杨建营 你好！
感谢回复！
我只需要在H列显示和值，请帮再调下，

已修改，请测试。

gwjkkkkk

cartel 发表于 2023-2-26 11:32
杨建营 你好！
感谢回复！
我只需要在H列显示和值，请帮再调下，

Sub test()
   Dim ar, vNum, i&
   ar = Range("G1", Cells(Rows.Count, "G").End(3))
   For i = 1 To UBound(ar)
       vNum = 0
       br = Split(ar(i, 1), ",")
       For j = 0 To UBound(br)
           vNum = vNum + br(j)
       Next j
       ar(i, 1) = vNum
   Next i
   [H1].Resize(UBound(ar)) = ar
End Sub

gwjkkkkk

参与一下。。。

cartel

杨建营 发表于 2023-2-26 12:03
已修改，请测试。

杨建营 好！
问题已得到解决，谢谢帮助！

gwjkkkkk

函数法H1=

1. =SUM(IFERROR(--(MID(SUBSTITUTE(G1,",",REPT(" ",100)),COLUMN($1:$100)*100-99,100)),))

复制代码

数组三键