懂Excel函数制表的高手请帮下我

来源：百度知道 编辑：UC知道 时间：2024/05/26 10:45:19
我的txt文档格式为：
A B C D
E F G
每行至少2个以上的词

现在我需要在Excel有规律的变成格式为：
A D
B D
C D
E G
F G

谁能帮我加QQ：8823841
分全部给你！！

如数据在sheet1中,创建一个宏abc,运行一遍宏,答案在sheet2中,宏代码:
Sub abc()
k = 1
For i = 1 To Sheets(1).Range("A65536").End(xlUp).Row
For j = 1 To Sheets(1).Range("IV" & i).End(xlToLeft).Column - 1
Sheets(2).Cells(k, 1) = Sheets(1).Cells(i, j)
Sheets(2).Cells(k, 2) = Sheets(1).Cells(i, Sheets(1).Range("IV" & i).End(xlToLeft).Column)
k = k + 1
Next j
Next i
End Sub