将上下两行拼成一行

faeyon

由于软件导出的原因，导致B列原本完整的内容被拆分成两行，请教高手指点，将A列、B列的格式转化成E列、F列的格式。

cidanji

两行拼接成一行.rar (17.02 KB, 下载次数: 8)

2023-7-25 11:58 上传

点击文件名下载附件

cyq4896

请试一试...

limonet

用到循环与IF

limonet

Sub limonet()
    Dim i%, j%
    j = 1
    For i = 2 To 7
        If Cells(i, "A") = "" Then
            j = j + 1
            Cells(j, "C") = Cells(i - 1, "B") & Cells(i, "B")
        End If
    Next i
End Sub

512008404

参与一下！

faeyon

谢谢高手的解答！！！

ykcbf1100

参与一下。。

lixikao

拆成多于2行也可以用
Sub AA()
Dim i, j, t, m As Byte, S1, S2, S As String
j = 1
m = Sheet1.Range("B65536").End(xlUp).Row
For i = 2 To m

If Cells(i, "A") <> "" Then
    Cells(j, "d") = S1 & S2
    j = j + 1
    S1 = Cells(i, "B").Value
    S2 = ""
Else
    S2 = S2 & Cells(i, "B").Value
End If
Next i
Cells(j, "D") = S1 & S2
End Sub

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, i&, j&, r&
   
    ar = [A1].CurrentRegion: r = 1
    For i = 2 To UBound(ar)
        If Len(ar(i, 1)) Then
            r = r + 1
            For j = 1 To UBound(ar, 2)
                ar(r, j) = ar(i, j)
            Next j
        Else
            ar(r, 2) = ar(r, 2) & ar(i, 2)
        End If
    Next i
   
    [E1].Resize(r, 2) = ar
    Beep
End Sub