Tự động thêm hàng trong Exel. (1 người xem)

[deptraibn]

Chào các bác.

Em có 1 vấn đề muốn nhờ các bác giúp như thế này ạ. Số là em p’ tính khối lượng của 1 công trình. Khi em tính xong thì các hàng có liền kề nhau. Em muốn thêm 1 hàng trống ở giữa của tất cả các hàng để có 1 hàm tính trung bình ở giữa. Thường thì em toàn làm bằng tay. Nhưng có đôi khi phải có đến hàng trăm cột như vậy. Các bác có phương án nào giúp em với.

Cảm ơn các bác nhiều ạ.

Đây là ví dụ về cái em muốn ạ.

 

[Let'GâuGâu]

Chào các bác.

Em có 1 vấn đề muốn nhờ các bác giúp như thế này ạ. Số là em p’ tính khối lượng của 1 công trình. Khi em tính xong thì các hàng có liền kề nhau. Em muốn thêm 1 hàng trống ở giữa của tất cả các hàng để có 1 hàm tính trung bình ở giữa. Thường thì em toàn làm bằng tay. Nhưng có đôi khi phải có đến hàng trăm cột như vậy. Các bác có phương án nào giúp em với.

Cảm ơn các bác nhiều ạ.

Đây là ví dụ về cái em muốn ạ.

View attachment 141679View attachment 141680

ở cell A24 bạn gõ =A1
rồi kéo xuống 23 dòng
==> sau đó chọn toàn bộ sort theo cột A
==> sau đó bạn chọn cột A nhấn Ctrl G==>chọn special==>chọn Formula==>chọn Error==> excel sẻ chọn các cell chứa cthuc bị lổi, nhấn Delete
vậy là bạn được mỗi dòng trống giữa các hàng
còn cái dzụ 3-1,7-1, tôi ko biết quy luật nó ra sao

 

[deptraibn]

Quá tuyệt. Cảm ơn bác rất nhiều.

 

[phulien1902]

Chào các bác.

Em có 1 vấn đề muốn nhờ các bác giúp như thế này ạ. Số là em p’ tính khối lượng của 1 công trình. Khi em tính xong thì các hàng có liền kề nhau. Em muốn thêm 1 hàng trống ở giữa của tất cả các hàng để có 1 hàm tính trung bình ở giữa.. ..

Bạn có thể dùng cách khác, bạn chép cái này vào Module:

Sub deptraibn()
    Dim i As Long
    For i = Range("A" & Rows.Count).End(3).Row To 1 Step -1
        If Cells(i, "A") <> Cells(i + 1, "A") Then Rows(i + 1).Insert
    Next i
End Sub