Excel VBA循环查找特定范围，连接2个单元格值并删除空单元格

Sub ConcatenateAndDeleteEmptyCells()
    Dim rng As Range
    Dim cell As Range
    Dim concatValue As String
    
    ' 设置要查找的范围
    Set rng = Range("A1:A10")
    
    ' 循环遍历每个单元格
    For Each cell In rng
        ' 判断单元格是否为空
        If Not IsEmpty(cell) Then
            ' 连接两个单元格的值
            concatValue = cell.Value & cell.Offset(0, 1).Value
            
            ' 将连接后的值赋给第一个单元格
            cell.Value = concatValue
            
            ' 清空第二个单元格
            cell.Offset(0, 1).ClearContents
        End If
    Next cell
    
    ' 删除空单元格
    rng.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub