vba获取计算机工作组名称,请大侠帮忙解决：如何用EXCEL函数或VBA将A列、B列、C列合并D列，反过来怎样将合并后的D列拆分成E列/F列/G列...

满意答案

lnw26wuq

2013.05.31

采纳率：44%    等级：12

已帮助：5271人

同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：

Sub hebing()

Dim i As Integer

For i = 1 To 15

Range("D" & i) = Format(Range("A" & i), "0.00") & Format(Range("B" & i), "0.00") & Format(Range("C" & i), "0.00")

Next i

End Sub

Sub fenkai()

Dim xStr() As String

Dim i As Integer

For i = 1 To 15

xStr = Split(Range("D" & i), ".")

Range("E" & i) = xStr(0) & "." & Left(xStr(1), 2)

Range("F" & i) = Mid(xStr(1), 3, 10) & "." & Left(xStr(2), 2)

Range("G" & i) = Mid(xStr(2), 3, 10) & "." & Left(xStr(3), 2)

Next i

两个宏分别实现你的两个要求。

20分享举报