用VBA合并单元格数据

q1342871134 · 发表于 2024-4-18 09:08

本帖最后由 q1342871134 于 2024-4-18 09:52 编辑

求大佬支招，用VBA将第二行内容合并添加到第一行,单元格不同内容间要换行,并删除第二行数据，同时第三行内容上移至第二行（其他单元格也可以此操作）====要随机合并，鼠标定位选中其中任意一行，将其内容合并到上一行，同时下方所有数据上移一行

q1342871134 · 发表于 2024-4-18 09:10

本帖最后由 q1342871134 于 2024-4-18 09:53 编辑

看原表数据和效果图片，原表内容的图片没用（要随机合并，鼠标定位选中其中任意一行，将其内容合并到上一行，同时下方所有数据上移一行）

3190496160 · 发表于 2024-4-18 09:23

合并的依据是什么？？没两行合并？还是什么？要有具体的说明别人才能帮到你的

ykcbf1100 · 发表于 2024-4-18 09:24

就3行数据？有点不合情理啊。

ykcbf1100 · 发表于 2024-4-18 09:24

定制代码。。。

Sub ykcbf() '//2024.4.18
arr = Sheets("原表").[a1:c4]
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
m = m + 1
For j = 1 To UBound(arr, 2)
brr(m, j) = arr(2, j) & Chr(10) & arr(3, j)
Next
m = m + 1
For j = 1 To UBound(arr, 2)
brr(m, j) = arr(4, j)
Next
With Sheets("效果")
.UsedRange.Offset(1) = ""
.[a2].Resize(m, UBound(arr, 2)) = brr
End With
MsgBox "OK！"
End Sub

复制代码

q1342871134 · 发表于 2024-4-18 09:40

本帖最后由 q1342871134 于 2024-4-18 09:50 编辑

ykcbf1100 发表于 2024-4-18 09:24
就3行数据？有点不合情理啊。

不是的，就是只有3列，随机合并鼠标定位到当前行，把当前行内容合并到上一行，同时下方数据上移至本行

q1342871134 · 发表于 2024-4-18 09:53

3190496160 发表于 2024-4-18 09:23
合并的依据是什么？？没两行合并？还是什么？要有具体的说明别人才能帮到你的

要随机合并，鼠标定位选中其中任意一行，将其内容合并到上一行，同时下方所有数据上移一行

cidanji · 发表于 2024-4-18 10:02

q1342871134 · 发表于 2024-4-18 10:06

cidanji 发表于 2024-4-18 10:02

就是这个，太棒了

yynrzwh · 发表于 2024-4-18 10:18

原数据信息1.zip (23.56 KB, 下载次数: 1)

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

[求助] 用VBA合并单元格数据

评分

评分

评分