Trợ giúp Excel
Chào buổi sáng
Tôi đang cố gắng tìm cách tự động thêm một hàng trống giữa các nhóm gồm nhiều hàng. Ví dụ, tôi có 5 hàng trong nhóm EA, 5 hàng trong nhóm EC và 3 hàng trong nhóm EE, v.v. Tôi muốn chèn một hàng trống giữa mỗi nhóm. Hiện tại, tôi phải giữ phím Ctrl và đánh dấu thủ công từng dòng cần chèn, sau đó nhấp chuột phải và chọn Chèn.
NHÀ SẢN XUẤT |
PRDGRP |
MÃ NHÀ CUNG CẤP |
MÃ CHỨNG KHOÁN CT |
SỰ MIÊU TẢ |
KE |
EA |
144N1042 |
1008017K711HF |
100/80 -17 52H TL KENDA K711F |
KE |
EA |
14461073 |
1107017K711HF |
110/70 -17 54H TL KENDA K711F |
KE |
EA |
146V2020 |
1307017K711HR |
130/70 -17 62H TL KENDA K711 |
KE |
EA |
143X2066 |
1406017K711HR |
140/60 -17 63H TL KENDA K711 |
KE |
EA |
144H2046 |
1407017K711HR |
140/70 -17 66H TL KENDA K711 |
KE |
EC |
14782023 |
1009018KSPCHHF |
100/90-18 56H TL KENDA THỬ THÁCH |
KE |
EC |
16882045 |
1009019KSPCHHF |
100/90-19 57H TL KENDA THỬ THÁCH |
KE |
EC |
14842041 |
1109018KSPCHHR |
110/90-18 61H TL KENDA THỬ THÁCH |
KE |
EC |
15432040 |
1209018KSPCHHR |
120/90-18 65H TL KENDA THỬ THÁCH |
KE |
EC |
14692065 |
1309017KSPCHHR |
130/90-17 68H TL KENDA THỬ THÁCH |
KE |
EE |
12852075 |
1009016KCRUHF |
100/90-16 54H TL CRUISER S/T K671F |
KE |
EE |
14662076 |
1108017KCRUHF |
110/80-17 57H TL CRUISER S/T K671F |
KE |
EE |
14861074 |
1307018KCRUHR |
130/70 -18 63H TL CRUISER S/T K671 |
KE |
EH |
15502032 |
1008018K6325PTL |
100/80 -18 59P TL KENDA K6325 |
KE |
EH |
12881173 |
1109016K346PTL |
110/90 -16 59P TL KENDA K346 F/R |
KE |
EH |
116910A1 |
1309015K346PTL |
130/90 -15 66P TL KENDA K346 |
KE |
EH |
14891071 |
27518K291FPTL |
2.75 -18 42P TL KENDA K291F |
KE |
EH |
130L1068 |
35016K6320PTL |
3.50 -16 52P TL KENDA K6320 |
KE |
EH |
148580B1 |
8010018K291PFTL |
80/100 -18 47P TL KENDA K291F |
KE |
EH |
14851034 |
8010018K291FPTL |
80/100-18 47P TT KENDA K291F ỐNG |
KE |
EH |
132B1007 |
909016K434PTL |
90/90 -16 48P TL KENDA K434 |
KE |
EH |
14821201 |
909018K328PTL |
90/90 -18 51P TL KENDA K328 |
KE |
EJ |
15261092 |
32518K265PTT |
3.25 -18 52P TT KENDA K265 |
KE |
EJ |
15311012 |
35018K265PTT |
3.50 -18 56P TT KENDA K265 |
KE |
HA |
169R2001 |
1009019KCATHB |
100/90 B19 57H TL CATACLYSM K6702F |
KE |
HA |
17052036 |
1306019KCATHB |
130/60 B19 61H TL CATACLYSM K6702F |
KE |
HA |
17372061 |
1306021KCATHB |
130/60 B21 63H TL CATACLYSM K6702F |
KE |
HA |
160M2005 |
1307018KCATHB |
130/70 B18 63H TL CATACLYSM K6702F |
KE |
HA |
147N2001 |
1308017KCATHB |
130/80 B17 65H TL CATACLYSM K6702F |
KE |
HA |
133U2003 |
1309016KCATHBF |
130/90 B16 67H TL CATACLYSM K6702F |
KE |
HA |
133H2064 |
1309016KCATHBR |
130/90 B16 73H TL CATACLYSM K6702 |
Trả lời:
Giả sử PRDGRP nằm ở ô B1.
Bạn có thể chạy macro sau:
Sub InsertRows()
Dim r As Long
Dim m As Long
Ứng dụng.Màn hình cập nhật = Sai
m = Range("B" & Rows.Count).End(xlUp).Row
Đối với r = m Đến 3 Bước -1
Nếu Range("B" & r).Value <> Range("B" & r - 1).Value thì
Range("B" & r).EntireRow.Insert
Kết thúc nếu
Tiếp theo r
Ứng dụng.Màn hình cập nhật = Đúng
End Sub
Comments
Post a Comment