[已解决][求助]将有标识的数据导入到另一个表中

zuo8250

大家好：

希望将附件内reprot表中的第一行标识为3的第2、3行数据写入到数据库表中的第1、2行，数据蛮多，谢 谢！

v6edtShw.rar (9.65 KB, 下载次数: 0)

2008-12-28 13:26 上传

点击文件名下载附件
[求助]将有标识的数据导入到另一个表中

[此贴子已经被作者于2008-12-28 13:26:46编辑过]

最佳答案

月排行榜 / 总排行榜

wayy

2008-12-27 13:16

Sub wayy()
Dim i, l, h As Integer
Dim arr1, arr2
l = [iv1].End(xlToLeft).Column
arr1 = Range([a1], Cells(3, l)).Value
ReDim arr2(1 To 2, 1 To l)
h = 1
For i = 1 To l
 If arr1(1, i) = "3" Then
  arr2(1, h) = arr1(2, i)
  arr2(2, h) = arr1(3, i)
  h = h + 1
 End If
Next
Sheet2.[a1].Resize(2, h) = arr2
MsgBox "数据分类完毕！！", , "wayy提示"
End Sub

跳转到最佳答案楼层

wayy

[求助]将有标识的数据导入到另一个表中

这个用技巧就可以了,不用代码.

zuo8250

谢谢！这种筛选的方法的确可以实现，但是不想手动这么多步，希望能用VBA实现，谢谢！！！

wayy

Sub wayy()
Dim i, l, h As Integer
Dim arr1, arr2
l = [iv1].End(xlToLeft).Column
arr1 = Range([a1], Cells(3, l)).Value
ReDim arr2(1 To 2, 1 To l)
h = 1
For i = 1 To l
 If arr1(1, i) = "3" Then
  arr2(1, h) = arr1(2, i)
  arr2(2, h) = arr1(3, i)
  h = h + 1
 End If
Next
Sheet2.[a1].Resize(2, h) = arr2
MsgBox "数据分类完毕！！", , "wayy提示"
End Sub

hingkk

学习了