Giúp sửa code WorksheetFunction (1 người xem)

[minhtuan55]

Chào cả nhà GPE !
Em muốn copy từ A2:A1000 sang H2:H1000 em đã bỏ cái từ Transpose rồi mà code vẫn không chạy được. Mong mọi người giúp đở
Lưu ý em không muốn dùng lệnh Copy vì nó tăng bộ nhớ Ram dùng lâu máy sẽ rất nặng


Sub copynew()
Dim Arr()
Arr = Sheets("Sheet1").Range("A2:A1000").Value
Range("H2:H1000") = WorksheetFunction.Transpose(Arr)
Erase Arr
End Sub

 

[ChanhTQ@]

Bạn thử với cái ni sẽ ra kết quả ra răng:

Sub CopyNew()
 Dim Arr()
 
 Arr = Sheets("Sheet1").Range("A2:B4").Value
 Range("H2:i4").Value = WorksheetFunction.Transpose(Arr)
 Erase Arr
End Sub

 

[HieuCD]

Chào cả nhà GPE !
Em muốn copy từ A2:A1000 sang H2:H1000 em đã bỏ cái từ Transpose rồi mà code vẫn không chạy được. Mong mọi người giúp đở
Lưu ý em không muốn dùng lệnh Copy vì nó tăng bộ nhớ Ram dùng lâu máy sẽ rất nặng


Sub copynew()
Dim Arr()
Arr = Sheets("Sheet1").Range("A2:A1000").Value
Range("H2:H1000") = WorksheetFunction.Transpose(Arr)
Erase Arr
End Sub

do bạn phải chuyển dòng thành cột mới qua trung gian Arr(), trường hợp nầy xử trực tiếp cho gọn

Sub copynew()

Sheets("Sheet1").Range("H2:H1000").Value = Sheets("Sheet1").Range("A2:A1000").Value

End Sub

nếu thích Arr không muốn bỏ

Sub copynew()
Dim Arr()
Arr = Sheets("Sheet1").Range("A2:A1000").Value
Sheets("Sheet1").Range("H2:H1000").Value = Arr
Erase Arr
End Sub

 

[minhtuan55]

do bạn phải chuyển dòng thành cột mới qua trung gian Arr(), trường hợp nầy xử trực tiếp cho gọn

Sub copynew()

Sheets("Sheet1").Range("H2:H1000").Value = Sheets("Sheet1").Range("A2:A1000").Value

End Sub

nếu thích Arr không muốn bỏ

Sub copynew()
Dim Arr()
Arr = Sheets("Sheet1").Range("A2:A1000").Value
Sheets("Sheet1").Range("H2:H1000").Value = Arr
Erase Arr
End Sub

dạ e thank a. E hieu rồi.