求助通VBA代码合并单元格内容

sonmei

想用VBA代码实现每行将C列及后面列的内容合并到B列，如附件所示效果，请各位老师赐教，谢谢！

cjc209

循环就完成了     没有难度

cjc209

函数法最简单
=TOCOL(C2:E7,3,0)

cjc209

就是多列转一列 忽略空值

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.2.6
   
2.     r = Me.Cells(Rows.Count, 1).End(3).Row
   
3.     c = Me.UsedRange.Columns.Count
   
4.     arr = Me.Range("a1").Resize(r, c)
   
5.     For i = 2 To UBound(arr)
   
6.         st = ""
   
7.         For j = 3 To UBound(arr, 2)
   
8.             If arr(i, j) <> Empty Then
   
9.                 st = st & arr(i, j)
   
10.             End If
    
11.         Next
    
12.         arr(i, 2) = Mid(st, 2)
    
13.     Next
    
14.     Me.Range("a1").Resize(r, c) = arr
    
15.     MsgBox "OK！"
    
16. End Sub
    

复制代码

ykcbf1100

附件供参考。。。

ykcbf1100

cjc209 发表于 2024-2-6 17:35
函数法最简单
=TOCOL(C2:E7,3,0)

VBA比公式要多写几行代码，确实是公式简单。

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, i&
   
    With [A1].CurrentRegion
        ar = .Value
        br = Intersect(.Offset(), .Offset(1, 2))
        For i = 2 To UBound(ar)
            .Cells(i, 2).Value = Join(Application.Index(br, i - 1), "")
        Next i
    End With
    Beep
End Sub

gwjkkkkk

参与一下。。。

明天会更好zj

=TEXTJOIN("",TRUE,C2:Z2)能用简单公式，就不必用代码