Góp ý cho bạn:
do em chưa dùng đc vba a ạ, vậy có cách nào khác không a ?
1/ Tập làm quen với VBA đi, các thành viên sẽ giúp code trong File cho bạn, bạn chi cần biết thiết lập chế độ chạy Macro (nếu không biết thì hỏi) sau đó bạn chỉ việc nhấn nút 1 cái là xong luôn, nhanh, gọn, lẹ và giảm dung lượng File rất nhiều so với dùng hàm.
Mãi mãi là bao nhiêu?
Public Sub sGpe()
Dim sArr(), dArr(), I As Long, K As Long, R As Long
sArr = Sheet2.Range("A3", Sheet2.Range("A3").End(xlDown)).Resize(, 3).Value
R = UBound(sArr)
ReDim dArr(1 To R * 2 * 11, 1 To 4)
K = -10
For I = 1 To R
K = K + 11
dArr(K, 1) = 1
dArr(K, 2) = sArr(I, 1)
dArr(K, 3) = sArr(I, 2)
dArr(K, 4) = sArr(I, 3)
K = K + 11
dArr(K, 1) = 2
dArr(K, 2) = sArr(I, 1)
dArr(K, 3) = sArr(I, 2)
dArr(K, 4) = sArr(I, 3)
Next I
Sheet1.Range("B3").Resize(K, 4) = dArr
End Subdạ em cảm ơn ah, em đang tìm hiểu thêm về vba, em sẽ nhờ a chỉ giáo tư vấn thêm
sheet1 khoảng 1500 dòng b ah
B3 =MOD(ROWS($1:2),2)+1C3 =INDIRECT("Sheet2!"&ADDRESS(INT(ROWS($1:66)/22),COLUMNS($A:A)))sử dụng C3 theo công thức trên thì ảnh hưởng tới số liệu từ cột I (sheet1) trở đi bạn à, có cách nào khắc phục đạt mục đích mà không ảnh hưởng phần data còn lại từ cột I (sheet1) trở đi không ạ
Tại sao lại ảnh hưởng? Giải thích cụ thể, cho vd. cụ thể. Nói bâng quơ thế ai hình dung nổi?
nhưng phải hiểu là "Copy B3:E3 cho các dòng còn lại"
bạn xem sửa giúp mình, sheet TH c3 khi = =INDIRECT("Sheet2!"&ADDRESS(INT(ROWS($1:66)/22),COLUMNS($A:A))) thì vùng cột I trở đi là bị xóa số liệu bạn ạ
Người ta làm cho tập tin ví dụ mà trong đó dữ liệu ở Sheet2. Bây giờ dữ liệu ở sheet ngw thì phải sửa lại. Ít ra thì tư duy lôgíc nó bắt phải thế. Chịu khó suy nghĩ thì ra thôi.
=INDIRECT("ngw!"&ADDRESS(ROWS($1:66)/22,COLUMNS($A:A)))cám ơn b
1/ Bạn sử dụng đến 1500 dòng mà dùng hàm chắc kéo mõi tay.
1/ Đối với người khác thì vài ngàn dòng kéo chả là gì hết. Nhưng đối với thớt thì có lẽ mỏi tay thật. Chỉ có mấy câu hỏi mà cũng lười biếng gõ cho trọn chữ, viết tắt tùm lum.
Muốn VBA thì thử sử dụng File sau, vào Sheet1 nhấn nút và xem kết quả.
Dạ coppy mỏi lắm ạ. Sheet 1 của em hiện tại thì lên tới 298×11×2+3 = 6 559 dòng b à. Đến khổ ạ
Vào Sheet2 thêm 1000 dòng và sang sheet1 chỉ tốn công nhấn nút (thì đâu có mõi tay) nó sẽ Insert đến 11.000 dòng.Dạ coppy mỏi lắm ạ. Sheet 1 của em hiện tại thì lên tới 298×11×2+3 = 6 559 dòng b à. Đến khổ ạ
Tôi sửa code lại một tí để cải thiện và tăng tốc độ.Dạ coppy mỏi lắm ạ. Sheet 1 của em hiện tại thì lên tới 298×11×2+3 = 6 559 dòng b à. Đến khổ ạ
