求助代码修改指正 求助代码修改指正

1吧吧

代码修改指正  代码修改指正

杨建营

这两行代码相当于下面一句覆盖了上一句内容。

ynzsvt

两个结果区域用两个数组表达。这样才能合并在一起。

1. Sub TEST合并()
   
2. Dim ar, i&
   
3. ar = Sheets("Sheet1").[A1].CurrentRegion.Value
   
4. ReDim br(1 To UBound(ar), 1 To 2)
   
5. ReDim br21(1 To UBound(ar), 1 To 2)
   
6. For i = 1 To UBound(ar)
   
7.   br(i, 1) = Mid(ar(1, 2), 1, 2) & Mid(ar(i, 1), 1, 2)
   
8.   br21(i, 1) = Mid(ar(2, 2), 1, 1) & Mid(ar(i, 1), 1, 2)
   
9. Next i
   
10. Sheets("Sheet4").[B1].Resize(UBound(ar), 2) = br
    
11. Sheets("Sheet4").[B21].Resize(UBound(ar), 2) = br21
    
12. Beep
    
13. End Sub

复制代码

杨建营

楼主这样改下试试