请各位大师帮忙

XIEMR

如附件，请问如何用VB由表1得到表2的内容

盗梦

用ADO 去操作

XIEMR

盗梦 发表于 2013-12-21 10:12
用ADO 去操作

怎么做啊，请指教

盗梦

XIEMR 发表于 2013-12-21 10:18
怎么做啊，请指教

原来是Excel ...汗。。。。我还以为是Access

pureshadow

XIEMR

pureshadow 发表于 2013-12-21 16:33

用枢纽分析表不行，我的意思是用VB自动批处理由表1的值得到表2的值

pureshadow

VB还是VBA？
给个大致思路：

1. 
   
2. 
   
3. Sub Sample()
   
4. Dim MyRow As Long, MyCol As Long, i As Long
   
5. With Sheets("表1")
   
6.     For MyRow = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
   
7.         For MyCol = 1 To (Application.CountA(.Rows(MyRow)) - 1) / 2
   
8.             i = i + 1
   
9.             Cells(i, 1) = .Cells(MyRow, 1)
   
10.             Cells(i, 2) = .Cells(MyRow, MyCol + 1)
    
11.             Cells(i, 3) = .Cells(MyRow, MyCol + 5)
    
12.         Next
    
13.     Next
    
14. End With
    
15. End Sub
    

复制代码