批量合并单元格的内容放到另外个单元格

app240913

大家好，又来寻求帮助了，
有n个sheet，如果第九行所在的列是空或者0的话，就把这一列第四行和第八行的单元格内容合并（不是合并单元格，是2个单元格内容连起来），并放到这一列第九行

原来格子的内容保留



因为表格很多很多，列数很多，所以只能求助了

quqiyuan

参与一下，仅供参考。。。

quqiyuan

代码如下。。。。
Sub test()
    For Each sh In ThisWorkbook.Sheets
        arr = Intersect(sh.[9:9], sh.UsedRange)
        brr = sh.Range(sh.[a1], sh.UsedRange)
        For i = 1 To UBound(brr, 2)
            If brr(9, i) = Empty Then arr(1, i) = brr(4, i) & brr(8, i)
        Next
        Intersect(sh.[9:9], sh.UsedRange) = arr
    Next
End Sub

jaxxcyh

这文字表达让人很费解。什么叫“第9行所在的列...”?

ykcbf1100

参与一下。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.9.14
   
2.     For Each Sht In Sheets
   
3.         With Sht
   
4.             c = .Cells(9, "XFD").End(1).Column
   
5.             For j = 1 To c
   
6.                 If .Cells(9, j) = Empty Then
   
7.                     .Cells(9, j).Value = .Cells(4, j).Value & .Cells(8, j).Value
   
8.                 End If
   
9.             Next
   
10.         End With
    
11.     Next
    
12.     MsgBox "OK！"
    
13. End Sub
    

复制代码