简单化的将×前后的单元格数据合并在一起

njwtg

各位老师好，我简化了合并单元格数据的功能，功能单一化了，第一步：从A1单元格开始，如果单元格的值为“×”，那就将该单元格水平方向的左右两边的数据，合并在该单元格中。合并逻辑是：
左边第一个单元格如果有数据，就合并在×的左边，如果没有数据，那就看左边第二个单元格有没有数据，如果有就合并在在×的左边。
右边的判断同理。被合并的单元格要被清空
第二步：进行竖向合并，同水平判断
无论是水平还是竖向，最多只判断2格，
麻烦老师看看，谢谢

njwtg

期待老师帮忙！谢谢

qline302

Sub ConnectX()   '连接X边缘字符

Dim rngX As Range, rngY As Range, iDirection As Integer, strX As String

With ActiveSheet
    Set rngY = .UsedRange     '=.Range(.UsedRange.Address)
    For Each rngX In rngY
        If UCase(rngX.Value) = "X" Then     'X是英文字母，可修改成其他字符
           On Error Resume Next
           For iDirection = 1 To 4
              Select Case iDirection
                Case 1 '左
                  rngX = IIf(rngX.Offset(0, -1) <> "", rngX.Offset(0, -1), rngX.Offset(0, -2)) & rngX
                Case 2 '右
                  rngX = rngX & IIf(rngX.Offset(0, 1) <> "", rngX.Offset(0, 1), rngX.Offset(0, 2))
                Case 3 '上
                  rngX = IIf(rngX.Offset(-1, 0) <> "", rngX.Offset(-1, 0), rngX.Offset(-2, 0)) & rngX
                Case 4 '下
                  rngX = rngX & IIf(rngX.Offset(1, 0) <> "", rngX.Offset(1, 0), rngX.Offset(2, 0))
              End Select
            Next iDirection
        End If
    Next rngX
    Set rngY = Nothing
End With

End Sub

qline302

Sub ConnectX()

Dim rngX As Range, rngY As Range, iDirection As Integer, strX As String

With ActiveSheet
    Set rngY = .UsedRange     '=.Range(.UsedRange.Address)
    For Each rngX In rngY
        If UCase(rngX.Value) = "X" Then     'X是英文字母，可修改成其他字符
           On Error Resume Next
           For iDirection = 1 To 4
              Select Case iDirection
                Case 1 '左
                  rngX = IIf(rngX.Offset(0, -1) <> "", rngX.Offset(0, -1), rngX.Offset(0, -2)) & rngX
                Case 2 '右
                  rngX = rngX & IIf(rngX.Offset(0, 1) <> "", rngX.Offset(0, 1), rngX.Offset(0, 2))
                Case 3 '上
                  rngX = IIf(rngX.Offset(-1, 0) <> "", rngX.Offset(-1, 0), rngX.Offset(-2, 0)) & rngX
                Case 4 '下
                  rngX = rngX & IIf(rngX.Offset(1, 0) <> "", rngX.Offset(1, 0), rngX.Offset(2, 0))
              End Select
            Next iDirection
        End If
    Next rngX
    Set rngY = Nothing
End With

End Sub

njwtg

谢谢qline302老师，太好了，完美！