AKLA A,B,C,
ADFJKL E,F,
AD D,F,
如何变成这样的数据 AAK
BAK
CAK
EAD
FAD
DAD
FAD
如何实现,请高手求解,需要将上述的逗号用第一列的前两个字母替换掉而且排成一列?方法越简便越好!
能不能帮我编辑个程序处理下,要形成一列数据,谢谢了!
追答源数据在ab两列,结果显示在c列。供参考:
Sub xx()
myrow = 1
For r = 1 To 3 '数据总行数 3
For i = 1 To Len(Cells(r, 2)) Step 2
Cells(myrow, 3) = Mid(Cells(r, 2), i, 1) + Left(Cells(r, 1), 2)
myrow = myrow + 1
Next
Next
End Sub