Heracles1976
Thành viên mới

- Tham gia
- 10/6/15
- Bài viết
- 35
- Được thích
- 7
E chào các đại cao thủ. Google spreadsheet đã cho chạy macro rồi, E có đoạn code bé bé này muốn nhờ các Bác chuyển thành ngôn ngữ của Google Spreadsheet, mong các Bác ra tay trợ giúp E với.. E cảm ơn nhiều nhiều ạ.!
Mã:
Sub Ghi_Dulieu()
Dim MyArr As Variant
With Sheets("sheet1")
MyArr = Array(.[g1], .[h1], .[i1], .[j1])
End With
Sheets("Sheet1").Range("A65536").End(xlUp).Offset(1).Resize(, 4).Value = MyArr
MsgBox ("Recorded")
End Sub