UC知道vba单元格合并 中间符号
来源：百度知道 编辑：UC知道 时间：2024/05/14 02:04:04
有几组数 第一个09所在的单元格是C4 最后一个46是F7 *号意思是在往下不知道会有多少行 这个是不固定的每天都不一样
C D E F G
4 09 20 32 45 09-2032-45
5 11 19 31 47 11-1931-47
6 12 22 35 47 12-2235-47
7 11 22 31 46 11-2231-46
* * * * *
我是想在G4到 G＊ 中的结果分别为现在的值 用VBA实现 哪位高手指点一下 特别是中间要加 “-” 谢谢 只有15分了 不好意思
忘了说了 数据都在sheet2中 G列在 sheet1中，
而且必须得VBA实现
高手帮帮忙啊
C D E F G
4 09 20 32 45 09-2032-45
5 11 19 31 47 11-1931-47
6 12 22 35 47 12-2235-47
7 11 22 31 46 11-2231-46
* * * * *
我是想在G4到 G＊ 中的结果分别为现在的值 用VBA实现 哪位高手指点一下 特别是中间要加 “-” 谢谢 只有15分了 不好意思
忘了说了 数据都在sheet2中 G列在 sheet1中，
而且必须得VBA实现
高手帮帮忙啊
“工具” -- “宏” -- “宏” -- “宏名”填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，运行就可以实现了
无需VBA,用字符串连接符"&"即可.
G4单元格中输入:
=C4 & "-" D4 & E4 & "-" & F4
在sheet2的g4单元格中输入=c4 & "-" & d4 & "-" & e4 & "-" & f4
然后点住g4单元格右下角拖拽。
然后在sheet2里选中g列，右键-->复制
在sheet1里选中g列，右键-->选择性粘贴-->在粘贴下选“数值”-->确定！
OK了！
g4中输入=c4 & "-" & d4 & "-" & e4 & "