[已解决]帮忙改下代码？

sdfasf

原代码是把K列数据粘在h3单元格，现在增加R列数据，想把K列数据和R列数据连接起来粘在h3单元格，代码怎么修改？
附件： 附件.rar (5.94 KB, 下载次数: 5)

2014-9-22 19:25 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2014-9-22 19:38

1. Sub Macro2()
   
2. Dim arr, brr, i&, n%
   
3. arr = Range("k20:r" & Range("r65536").End(xlUp).Row)
   
4. ReDim brr(1 To UBound(arr), 1 To 1)
   
5. n = UBound(arr, 2)
   
6. For i = 1 To UBound(arr)
   
7.     brr(i, 1) = arr(i, 1) & arr(i, n)
   
8. Next
   
9. Range("h3").Resize(UBound(brr)) = brr
   
10. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro2()
   
2. Dim arr, brr, i&, n%
   
3. arr = Range("k20:r" & Range("r65536").End(xlUp).Row)
   
4. ReDim brr(1 To UBound(arr), 1 To 1)
   
5. n = UBound(arr, 2)
   
6. For i = 1 To UBound(arr)
   
7.     brr(i, 1) = arr(i, 1) & arr(i, n)
   
8. Next
   
9. Range("h3").Resize(UBound(brr)) = brr
   
10. End Sub

复制代码

这儿有肥猫

ccc

sdfasf

Sub Macro1()
Dim i&, s1&, s2&, arr, brr
    arr = [k20].CurrentRegion
    crr = [r20].CurrentRegion
    ReDim brr(1 To UBound(arr), 1 To 1)
    For i = 1 To UBound(arr)
        brr(i, 1) = arr(i, 1) & crr(i, 1)
    Next
    [h3].Resize(UBound(brr), 1) = brr
End Sub