L LOIKS Thành viên chính thức Tham gia 10/8/18 Bài viết 97 Được thích 7 17/10/18 #1 chào mọi người mình có 1 file sau mình muốn sau mỗi hàng ( hàng đả merge) được chèn thêm 1 hàng nửa, mong mọi người giúp đở cảm ơn mọi người File đính kèm INSERT.xlsm INSERT.xlsm 589.6 KB · Đọc: 6
chào mọi người mình có 1 file sau mình muốn sau mỗi hàng ( hàng đả merge) được chèn thêm 1 hàng nửa, mong mọi người giúp đở cảm ơn mọi người
befaint ||||||||||||| Tham gia 6/1/11 Bài viết 14,542 Được thích 19,752 17/10/18 #2 " Ô ĐẢ MERGE" Tức là mấy ô đó oánh lộn nhau ấy hả.. Upvote 0
Phuocam Thành viên mới Tham gia 16/5/13 Bài viết 4,726 Được thích 7,743 17/10/18 #3 Mã: Sao chép. Public Sub Insert_Row() Dim lr As Long, i As Long lr = Range("B" & Rows.Count).End(xlUp).Row For i = lr To 3 Step -1 If Cells(i, 1) <> "" And Cells(i - 1, 1) = "" Then Rows(i).Insert Next End Sub Upvote 0
Mã: Sao chép. Public Sub Insert_Row() Dim lr As Long, i As Long lr = Range("B" & Rows.Count).End(xlUp).Row For i = lr To 3 Step -1 If Cells(i, 1) <> "" And Cells(i - 1, 1) = "" Then Rows(i).Insert Next End Sub
