Question

excel表格如何利用VBA来实现三列合并excel表格中

excel表格如何利用VBA来实现三列合并excel表格中，我想把E列F列G列的数据合并到AI列中（如图），从第三行开始，6万行结束 注意F列和G列的数据可能为空哦
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then Cells(Target.Row, 37) = Cells(Target.Row, 5)
If Target.Column = 6 Then Cells(Target.Row, 37) = Cells(Target.Row, 5) & "*" & Cells(Target.Row, 6)
If Target.Column = 7 Then Cells(Target.Row, 37) = Cells(Target.Row, 5) & "*" & Cells(Target.Row, 6) & "*" & Cells(Target.Row, 7)
End Sub
这段代码能实现立即显示三个单元格的合并了，可带来了两个新的问题：请看图片（因为字数限制）





Answer 1

这个不需要VBA的，在AI3写公式：=IF(F3<>"",IF(G3<>"",E3&"*"&F3&"*"&G3,E3&"*"&F3),IF(G3<>"",E3&"*"&G3,E3))

下拉复制公式到最后一行。

Answer 2

在代码窗口输入或粘贴以下VBA代码

Sub 合并()
For i = 3 To 60000
k = 0
For j = 5 To 7
If Cells(i, j) <> "" Then k = k + 1
Next
If k = 1 Then
Cells(i, 35) = Cells(i, 5)
ElseIf k = 2 Then
Cells(i, 35) = Cells(i, 5) & "*" & Cells(i, 6)
ElseIf k = 3 Then
Cells(i, 35) = Cells(i, 5) & "*" & Cells(i, 6) & "*" & Cells(i, 7)
End If
Next
End Sub

追问

这个代码很好，速度也快，但我还有一个希望，该代码能不能实现在填完E F G列单元格自动填写，而不是要去运行宏，就像在AI3=E3&IF(F3="","","*"&F3)&IF(G3="","","*"&G3)
内写的函数公式那样。数据写到哪个，AI列就自动显示

追答

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then Cells(Target.Row, 37) = Cells(Target.Row, 5)
If Target.Column = 6 Then Cells(Target.Row, 37) = Cells(Target.Row, 5) & "*" & Cells(Target.Row, 6)
If Target.Column = 7 Then Cells(Target.Row, 37) = Cells(Target.Row, 5) & "*" & Cells(Target.Row, 6) & "*" & Cells(Target.Row, 7)
End Sub

追问

第二段代码能实现立即显示三个单元格的合并了，可带来了两个新的问题：
E列和F列单元格的数据不能随意改了，改了（合并的A列的单元格）数据会发生丢失（但G列单元格的数据变化可以立即显示）。我想能不能做到当E列F列G列单元格的数据发生变化是， 合并的AI列 的数据也能立即变化。
2.该代码对自动生成（比如复制来）的的数据没有反应

追答

Sub 合并()
For i = 3 To 60000
k = 0
For j = 5 To 7
If Cells(i, j) <> "" Then k = k + 1
Next
If k = 1 Then
Cells(i, 35) = Cells(i, 5)
ElseIf k = 2 Then
Cells(i, 35) = Cells(i, 5) & "*" & Cells(i, 6)
ElseIf k = 3 Then
Cells(i, 35) = Cells(i, 5) & "*" & Cells(i, 6) & "*" & Cells(i, 7)
End If
Next
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column >= 5 And Target.Column <= 7 Then
Cells(Target.Row, 35) = IIf(Cells(Target.Row, 5) = "", "", Cells(Target.Row, 5)) & IIf(Cells(Target.Row, 6) = "", "", "*" & Cells(Target.Row, 6)) & IIf(Cells(Target.Row, 7) = "", "", "*" & Cells(Target.Row, 7))
Call 合并
End If
End Sub

追问

当数据运行到三万条以后，每移动一下鼠标，速度有点慢，还能在快一点吗

追答

呵呵，我初学VBA呢。
等明天找人帮你弄吧。

Answer 3

AI3：
=E3&IF(F3="","","*"&F3)&IF(G3="","","*"&G3)

掉楼主坑里了：
Sub togather()
Dim rC As Range
For Each rC In Range("AI3:AI60000")
rC = Cells(rC.Row, 5) & IIf(Cells(rC.Row, 6) <> 0, "*" & Cells(rC.Row, 6), vbNullString) & IIf(Cells(rC.Row, 7) <> 0, "*" & Cells(rC.Row, 7), vbNullString)
Next
End Sub