VBA数据录入

DaleXpd

各位好，麻烦能不能帮忙调一下这个代码，使它可以每次进行多行的录入保存，目前这个代码只能输入保存一行，请问该如果 修改代码。谢谢

Sub 按钮1_Click()
Dim arr, r%
arr = Sheet2.Range("b3:h3")
r=Sheet1.Cells(Rows.Count,1).End(xlUp).Row + 1
Sheet1.Cells(r, 1).Resize(1, UBound(arr, 2)) = arr
End Sub

一指禅62

1. Sub 按钮1_Click()
   
2.     Dim arr, r%
   
3.     With Sheet2
   
4.         r = .Cells(Rows.Count, 2).End(xlUp).Row
   
5.         arr = .Range("b3:h" & r)
   
6.     End With
   
7.     With Sheet1
   
8.         r = .Cells(Rows.Count, 1).End(xlUp).Row + 1
   
9.         .Cells(r, 1).Resize(UBound(arr, 2), UBound(arr)) = WorksheetFunction.Transpose(arr)
   
10.     End With
    
11. End Sub

复制代码

DaleXpd

一指禅62 发表于 2020-2-16 10:57

感谢 帮助，但是我把代码运行后发现 我的数据录入后没有按照我原来的数据格式，比如一行为一组数据，而是将现有数据进行了行列转换，请问怎么修改呢

一指禅62

DaleXpd 发表于 2020-2-20 09:19
感谢 帮助，但是我把代码运行后发现 我的数据录入后没有按照我原来的数据格式，比如一行为一组数据，而是 ...

没有附件，猜不着。不好意思！

网海遨游

这样改动,试下

Sub 按钮1_Click()
Dim arr, r%
arr = Sheet2.Range("b3:h3")
r=Sheet1.Cells(Rows.Count,1).End(xlUp).Row + 1
Sheet1.Cells(r, 1).Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

DaleXpd

网海遨游 发表于 2020-2-20 10:48
这样改动,试下

Sub 按钮1_Click()

是的 我刚才查了一下那个 WorksheetFunction.Transpose 是转置的函数，搞好了 谢谢

DaleXpd

一指禅62 发表于 2020-2-20 10:26
没有附件，猜不着。不好意思！

没事，我刚查了一下WorksheetFunction.Transpose这个是转置函数，我把它去掉就好了，谢谢帮助