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

njwtg · 发表于 2024-1-12 08:16

老师好！表格中数据有点杂乱无章。我想将×前后的单元格数据合并在一起，合并的逻辑是：先清洗数据，然后从第一行开始，如果单元格的值为“×”，那就将该单元格水平方向的左右两边的数据，合并在该单元格中。合并逻辑是：
左边第一个单元格如果有数据，就合并在×的左边，如果没有数据，那就看左边第二个单元格有没有数据，如果有就合并在在×的左边。
右边的判断同理。被合并的单元格要被清空
谢谢！

liulang0808 · 发表于 2024-1-12 08:51

建议楼主结合附件内容逐步描述需求吧
附件中的描述跟帖子内的描述有出入啊

njwtg · 发表于 2024-1-12 09:13

谢谢liulang0808老师，以附件中的描述为准

yynrzwh · 发表于 2024-1-12 10:49

仅供参考

将×前后的单元格数据合并在一起.rar (20.56 KB, 下载次数: 7)

lushang2018 · 发表于 2024-1-12 11:05

njwtg · 发表于 2024-1-12 11:41

yynrzwh老师的程序能否做成原位实现，现在是在sheet3中排列的A列了，能否仍然在sheet1中，也不要排列在A列，保持在原有带×单元格位置中，谢谢

njwtg · 发表于 2024-1-12 11:43

lushang2018老师的程序不知道为什么报错，istr的子过程未定义
Function 是否包含数字(oRng As Range) As Boolean
Dim bHaveNumbers As Boolean, i As Long
bHaveNumbers = False
For i = 1 To Len(oRng.Text)
If IsNumeric(Mid(oRng.Text, i, 1)) Then
bHaveNumbers = True
Exit For
End If
Next
是否包含数字 = bHaveNumbers

End Function
Sub TestSub()
Dim i, j, k, arr, brr, x, y, rng As Range
Sheet1.Activate
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
If Cells(i, j) <> "×" And istr(Cells(i, j), ".") <> 0 And 是否包含数字(Cells(i, j)) = False Then
If Cells(i, j).Offset(0, -1) <> "" Then
Cells(i, j) = Cells(i, j).Offset(0, -1) & Cells(i, j)
Cells(i, j).Offset(0, -1).Clear
ElseIf ceils(i, j).Offset(0, -2) <> "" Then
Cells(i, j) = Cells(i, j).Offset(0, -2) & Cells(i, j)
End If
If Cells(i, j).Offset(0, 1) <> "" Then
Cells(i, i) = Cells(i, j).Offset(0, 1) & Cells(i, j)
Cells(i, j).Offset(0, 1).Clear
ElseIf Cells(i, j).Offset(0, 2) <> "" Then
Cells(i, j) = Cells(i, j).Offset(o, 2) & Cells(i, j)
End If
Else
Cells(i, j).Clear
End If
Next
Next
End Sub
谢谢老师

		自动登录	找回密码
密码			免费注册

[求助] 将×前后的单元格数据合并在一起