Copy dòng cách quãng

[hongphuong1997]

Nhờ thầy cô và các bác viết giúp code copy dòng cách quãng như file đính kèm.

 

[congnt92]

Nhờ thầy cô và các bác viết giúp code copy dòng cách quãng như file đính kèm.

C20=IF(INT((ROWS($C$20:$C20)-1)/9)+1=$B$20,IFERROR(INDEX($B$2:$I$8,INT((ROWS($C$20:$C20)-1)/9)+1,COLUMNS($C$20:C$20)),""),"")

 

[hongphuong1997]

C20=IF(INT((ROWS($C$20:$C20)-1)/9)+1=$B$20,IFERROR(INDEX($B$2:$I$8,INT((ROWS($C$20:$C20)-1)/9)+1,COLUMNS($C$20:C$20)),""),"")

Anh ui em thick viết bằng VBA cơ anh à!
Cảm ơn anh nhé!

 

[be_09]

Nhờ thầy cô và các bác viết giúp code copy dòng cách quãng như file đính kèm.
Anh ui em thích viết bằng VBA cơ anh à!

Thử dùng code, Copy từ sheet2 sang sheet1 và Insert dòng.

 

[hongphuong1997]

Thử dùng code, Copy từ sheet2 sang sheet1 và Insert dòng.

Cháu cảm ơn Bác, nhưng vẫn chưa đúng bác ui.

 

[be_09]

Cháu cảm ơn Bác, nhưng vẫn chưa đúng bác ui.

Chưa đúng là sao? trong File bài 1 là Insert 8 dòng trống.

 

[befaint]

Bài này có nhiều bài lắm rồi mà.
Cho trước một mảng, rồi chèn số dòng trống xen vào.
Viết một hàm, đầu vào là mảng gốc và số dòng cần xen vào. (Lưu ý là dùng mảng thì hợp lý cho bài này).
Rồi còn đố viết 1 vòng lặp...

 

[SA_DQ]

Bài này có thể giải quyết khi ta lập bảng sau:
Ta fải copy từ dòng 2 tới dòng 20 (2+ 18)
Copy từ dòng 3 tới dòng 29 (có nghĩa là 2 + 27)
v.v . . . . .
Mà các con số 18 = 2 * 9;
27 = 9 * 3

Ta có thể For . . . Next là được thôi.

 

[hongphuong1997]

Bài này có thể giải quyết khi ta lập bảng sau:
Ta fải copy từ dòng 2 tới dòng 20 (2+ 18)
Copy từ dòng 3 tới dòng 29 (có nghĩa là 2 + 27)
v.v . . . . .
Mà các con số 18 = 2 * 9;
27 = 9 * 3

Ta có thể For . . . Next là được thôi.

Cháu biết thì nào cũng có cao nhân mà,
Bác Viết giúp cháu với.

 

[SA_DQ]

Đây là sự chiếu cố người có ảnh đẹp đó nha:

Sub CopyCach2uang()
 Dim J As Long, Col As Integer
 
 Col = [B2].CurrentRegion.Columns.Count
 For J = 2 To 8
    Cells(J, "B").Resize(, Col).Copy Destination:=Cells(2 + 9 * J, "C")
    Cells(2 + 9 * J, "B").Value = J - 1
 Next J
End Sub

 

[Hau151978]

@hongphuong1997 sau loạt bài trả lời trên, bạn thử viết không dùng vòng lặp được không?

 

[hongphuong1997]

Đây là sự chiếu cố người có ảnh đẹp đó nha:

Sub CopyCach2uang()
Dim J As Long, Col As Integer

Col = [B2].CurrentRegion.Columns.Count
For J = 2 To 8
    Cells(J, "B").Resize(, Col).Copy Destination:=Cells(2 + 9 * J, "C")
    Cells(2 + 9 * J, "B").Value = J - 1
Next J
End Sub

Con cảm ơn bác, để con xem đã nhé!

Bài đã được tự động gộp: 30/7/18

@hongphuong1997 sau loạt bài trả lời trên, bạn thử viết không dùng vòng lặp được không?

Hu hu... nhưng cháu chưa biết phương pháp đó bác ui.
Bác chỉ dẫn cho cháu với.

 

[hongphuong1997]

@hongphuong1997 sau loạt bài trả lời trên, bạn thử viết không dùng vòng lặp được không?

Nếu không dùng vòng lặp thi Hong Phuong viết vo tư
Cứ thế copy và Pasd có gì đâu.

 

[Hau151978]

Nếu không dùng vòng lặp thi Hong Phuong viết vo tư
Cứ thế copy và Pasd có gì đâu.

Đó cũng là 1 cách hay, đỡ phải suy nghĩ nhiều. Nhưng ý mình đố ở đây khi dữ liệu lớn hơn hoặc chưa biết trước số dòng cột thì không copy paste được. Gợi ý 1 chút nhé, bạn tạo thêm cột phụ A, điền toàn số 1 đến 7 rồi lặp lại 8 lần. Sort theo cột phụ này rồi xóa cột phụ. Bây giờ làm sao để điền cột phụ mà không dùng vòng lặp?

 

[hongphuong1997]

Đó cũng là 1 cách hay, đỡ phải suy nghĩ nhiều. Nhưng ý mình đố ở đây khi dữ liệu lớn hơn hoặc chưa biết trước số dòng cột thì không copy paste được. Gợi ý 1 chút nhé, bạn tạo thêm cột phụ A, điền toàn số 1 đến 7 rồi lặp lại 8 lần. Sort theo cột phụ này rồi xóa cột phụ. Bây giờ làm sao để điền cột phụ mà không dùng vòng lặp?

Thế bạn làm thử cho mình coi xem nào?

Bài đã được tự động gộp: 30/7/18

Đây là sự chiếu cố người có ảnh đẹp đó nha:

Sub CopyCach2uang()
Dim J As Long, Col As Integer

Col = [B2].CurrentRegion.Columns.Count
For J = 2 To 8
    Cells(J, "B").Resize(, Col).Copy Destination:=Cells(2 + 9 * J, "C")
    Cells(2 + 9 * J, "B").Value = J - 1
Next J
End Sub

Bác
SA_DQ

ui, bác ui,
Chuẩn không cần chỉnh Bác à
Con cảm ơn Bác nhé!

 

[Hau151978]

Thế bạn làm thử cho mình coi xem nào?

Bạn chạy code, nhập số dòng cần giãn cách vào inputbox.
(Trong code mình dùng mảng nhưng chỉ cần copy paste range là được).

 

[SA_DQ]

Bạn chạy code, nhập số dòng cần giãn cách vào inputbox..

Đây cũng là điển hình của việc dạy & học ờ Việt nam ta hiện nay!

 

[Hau151978]

Đây cũng là điển hình của việc dạy & học ờ Việt nam ta hiện nay!

Việc dạy học ở ta có vấn đề gì hả bác?

 

[SA_DQ]

Dạy ra những người không thực tiển; kĩ sự điện không biết ráp nối khởi động từ để nó làm việc
Thậm chí rất nhiều kĩ sư & cao đẵng mà mình tiếp nhận vô cơ quan không biết bao nhiêu % thán khí trong khí quyển.

Nói rõ hơn sẽ là: Ngành GD của chúng ta đang dạy cho con cháu những kiến thức mà người thầy, người cô có; Chứ không fải dạy những kiến thức mà XH đang cần
Mở rọng ra; Nền GD nước nhà chưa chuyển mình theo cơ chế thị trường

 

[hongphuong1997]

Bạn chạy code, nhập số dòng cần giãn cách vào inputbox.
(Trong code mình dùng mảng nhưng chỉ cần copy paste range là được).

Anh oy, anh viết gì vậy?
Các khoảng trống đó người ta đều có dữ liệu hết mớ
Anh insert như vậy để mất hết dữ liệu àh.
anh xem và làm lại đi anh nhé!
Hi hi hi....