[已解决]在没有建立字典的情况下，不用Transpose 怎么表达？？

张雄友

Range("M1").Resize(UBound(brr) + 1) = WorksheetFunction.Transpose(brr) '在没有建立字典的情况下，不用Transpose 怎么表达？？ 就是没有建立 d.count d.keys 的情况下。

最佳答案

月排行榜 / 总排行榜

dsmch

2014-10-19 13:55

1. Sub Macro1()
   
2. Dim arr, brr, i&, j%, p$
   
3. arr = Range("a1:k" & Range("k65536").End(xlUp).Row)
   
4. ReDim brr(1 To UBound(arr), 1 To 1)
   
5. For i = 1 To UBound(arr)
   
6.     p = ""
   
7.     For j = 1 To UBound(arr, 2) Step 2
   
8.         p = p & arr(i, j)
   
9.     Next
   
10.     brr(i, 1) = p
    
11. Next
    
12. [m:m].NumberFormatLocal = "@"
    
13. Range("m1").Resize(UBound(brr)) = brr
    
14. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, i&, j%, p$
   
3. arr = Range("a1:k" & Range("k65536").End(xlUp).Row)
   
4. ReDim brr(1 To UBound(arr), 1 To 1)
   
5. For i = 1 To UBound(arr)
   
6.     p = ""
   
7.     For j = 1 To UBound(arr, 2) Step 2
   
8.         p = p & arr(i, j)
   
9.     Next
   
10.     brr(i, 1) = p
    
11. Next
    
12. [m:m].NumberFormatLocal = "@"
    
13. Range("m1").Resize(UBound(brr)) = brr
    
14. End Sub

复制代码

xdragon

1. 
   
2. Sub test()
   
3.    Dim conn As Object, sql$
   
4.    Set conn = CreateObject("Adodb.Connection")
   
5.    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 8.0;HDR=No;IMEX=1"";"
   
6.    sql = "select F1 & F3 & F5 & F7 & F9 & F11 from [Sheet1$A:K]"
   
7.    Range("M1").CopyFromRecordset conn.Execute(sql)
   
8.    conn.Close
   
9.    Set conn = Nothing
   
10. End Sub

复制代码

可以用sql

张雄友

dsmch 发表于 2014-10-19 13:55

其实我的意思是：Range("M1").Resize(UBound(brr) + 1) = WorksheetFunction.Transpose(brr)

怎么修改一下也能实现同样的功能？？而不是重新编写的意思。不知是否理解？