vba单元格合并中间符号

发布网友发布时间：2022-05-20 23:58

共4个回答

热心网友时间：2023-10-09 09:51

“工具” -- “宏” -- “宏” -- “宏名”填hebing -- 点创建 --在“Sub hebing()”和“End Sub”之间粘贴上以下代码：
i = 4
Do While Sheet2.Cells(i, 3) <> ""
Sheet1.Cells(i, 7) = Sheet2.Cells(i, 3) & "-" & Sheet2.Cells(i, 4) & Sheet2.Cells(i, 5) & "-" & Sheet2.Cells(i, 6)
i = i + 1
Loop

即所有代码为：
Sub hebing()
i = 4
Do While Sheet2.Cells(i, 3) <> ""
Sheet1.Cells(i, 7) = Sheet2.Cells(i, 3) & "-" & Sheet2.Cells(i, 4) & Sheet2.Cells(i, 5) & "-" & Sheet2.Cells(i, 6)
i = i + 1
Loop
End Sub

然后按F5，运行就可以实现了

热心网友时间：2023-10-09 09:52

无需VBA,用字符串连接符"&"即可.
G4单元格中输入:
=C4 & "-" D4 & E4 & "-" & F4

热心网友时间：2023-10-09 09:52

在sheet2的g4单元格中输入=c4 & "-" & d4 & "-" & e4 & "-" & f4
然后点住g4单元格右下角拖拽。
然后在sheet2里选中g列，右键-->复制
在sheet1里选中g列，右键-->选择性粘贴-->在粘贴下选“数值”-->确定！
OK了！

热心网友时间：2023-10-09 09:53

g4中输入=c4 & "-" & d4 & "-" & e4 & "-" & f4

然后点住g4单元格右下角拖拽就可以了

vba单元格合并 中间符号

vba单元格合并中间符号