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

Popular posts from this blog

Điều tôi muốn làm trong Excel 2010 là tạo một nút tùy chỉnh và gắn nó vào thanh công cụ Truy nhập nhanh và chạy một macro cụ thể.

Mở tài liệu Excel và Word từ Outlook Lỗi - Không đủ bộ nhớ

Excel: Tìm và trả về "số cuối cùng" trong một cột, trong đó cột chứa: cả ô trống và số dương tùy ý (lớn hơn 0).