Office中国论坛/Access中国论坛

标题: 请各位大师帮忙 [打印本页]
作者: XIEMR    时间: 2013-12-21 10:07
标题: 请各位大师帮忙
如附件，请问如何用VB由表1得到表2的内容
作者: 盗梦    时间: 2013-12-21 10:12
用ADO 去操作
作者: XIEMR    时间: 2013-12-21 10:18
盗梦 发表于 2013-12-21 10:12
用ADO 去操作

怎么做啊，请指教
作者: 盗梦    时间: 2013-12-21 15:55
XIEMR 发表于 2013-12-21 10:18
怎么做啊，请指教

原来是Excel ...汗。。。。我还以为是Access
作者: pureshadow    时间: 2013-12-21 16:33
[attach]52921[/attach]
作者: XIEMR    时间: 2013-12-21 16:45
pureshadow 发表于 2013-12-21 16:33

用枢纽分析表不行，我的意思是用VB自动批处理由表1的值得到表2的值
作者: pureshadow    时间: 2013-12-22 15:56
VB还是VBA？
给个大致思路：


  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
复制代码




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3