新人想求一段VBA录入代码！

bb978079728

想要一段代码，表1的A11、C11、E11、F11、G11、H11、J11、D8、I18，分别录入到表2的同一行里，依次向下，想做到按钮指定宏上，另外EXCEL可能有变动，小白求大神给一段简单可套用的编码，感激不尽

dajiahaoxinku12

直接用等号不好吗？

bb978079728

dajiahaoxinku12 发表于 2014-4-3 19:12
直接用等号不好吗？

要录入的东西多啊，想要录入到另一个表里，等号表1动一下表2也跟着动，想要一个按钮一样的，点击按钮一下，就录一组数据

dajiahaoxinku12

你这种表述，不好理解。上传个附件吧，你是录一部分按一下按钮，还是全部录完了按一下按钮， 按一下想得到一部分数据还不是全部数据？？   

cbtaja

sub 录入()
dim arr(0 to 0,1 to 9)
with sheets("表1")
arr(0,1) =[A11]
arr(0,2) =[C11]
arr(0,3) =[E11]
arr(0,4) =[F11]
arr(0,5) =[G11]
arr(0,6) =[H11]
arr(0,7) =[J11]
arr(0,8) =[D8]
arr(0,9) =[I18]
end with
sheets("表2").[a65536].end(xlup).offset(1,0).resize(1,9) = arr
end sub

bb978079728

cbtaja 发表于 2014-4-3 19:51
sub 录入()
dim arr(0 to 0,1 to 9)
with sheets("表1")

感谢！另外还想问一下。A11、C11、E11、F11、G11、H11、J11，11行在每次保存的时候是肯定有的，12、13、14行有时候是有的，有时候是没有的，我想在12、13、14行有数据的情况下一起录入到表2里，这个要怎样实现呢

cbtaja

bb978079728 发表于 2014-4-3 20:33
感谢！另外还想问一下。A11、C11、E11、F11、G11、H11、J11，11行在每次保存的时候是肯定有的，12、13、1 ...

Sub 录入()
Dim arr(1 To 3, 1 To 9), brr, a8, a9, i&, m&
With Sheets("表1")
    brr = .[A11:J13]
    a8 = .[d8]
    a9 = .[i18]
End With
For i = 1 To 3
If brr(i, 1) <> "" Then
m = m + 1
    arr(m, 1) = brr(i, 1)
    arr(m, 2) = brr(i, 3)
    arr(m, 3) = brr(i, 5)
    arr(m, 4) = brr(i, 6)
    arr(m, 5) = brr(i, 7)
    arr(m, 6) = brr(i, 8)
    arr(m, 7) = brr(i, 10)
    arr(m, 8) = a8
    arr(m, 9) = a9
End If
Next
Sheets("表2").[a65536].End(xlUp).Offset(1, 0).Resize(m, 9) = arr
End Sub

201228

发个附件上来吧， 看看是否还有更好的方式