Nhờ giúp đỡ thêm dòng trong Excel

[lưu tuấn dũng]

File dữ liệu của mình có khoảng 2000 dòng . Hiện tại mình muốn cứ 10 dòng là sẽ thêm 1 dòng mới . Làm thủ công rất mất thời gian . Nhờ anh chị em trong diễn đàn hỗ trợ

 

[Hoàng Tuấn 868]

Nhờ anh chị em trong diễn đàn hỗ trợ

Hỗ trợ làm vào đâu nhỉ.

 

[TH2]

File dữ liệu của mình có khoảng 2000 dòng . Hiện tại mình muốn cứ 10 dòng là sẽ thêm 1 dòng mới . Làm thủ công rất mất thời gian . Nhờ anh chị em trong diễn đàn hỗ trợ

Cách nhanh nhất là thêm 1 cột phụ (tạm gọi là cột T)
tại cột T gõ lần lượt
dòng 1: 10
dòng 2: 20

rồi kéo fill 2 dòng trên xuống cho các dòng lại thuộc cột T để được : 10,20,30,40 ....,400
đến hết, được 400 chẳng hạn
Thì tại cuối cột T này, các dòng tiếp theo gõ 101, 201, ... kéo đến 401
Giờ chọn toàn bộ vùng dữ liệu gồm cả cột Đến hết dòng (có số 401 ví dụ ở đây) ==> rồi sort theo cột phụ T đó theo thứ tự nhỏ đến lớn ==> tiếp xóa cột T này đi ==>là ta được kết quả chèn các dòng trắng mong muốn,

 

[lưu tuấn dũng]

Cách nhanh nhất là thêm 1 cột phụ gọi là cột T
tại cột T gõ lần lượt
dòng 1: 10
dòng 2: 20

rồi kéo fill 2 dòng trên xuống cho các dòng lại thuộc cột T để được : 10,20,30,40 ....,400
đến hết, được 400 chẳng hạn
Thì tại cuối cột T này, các dòng tiếp theo gõ 101, 201, ... kéo đến 401
Giờ chọn toàn bộ vùng dữ liệu gồm cả cột Đến hết dòng (có số 401 ví dụ ở đây) ==> rồi sort theo cột phụ T đó theo thứ tự nhỏ đến lớn ==> tiếp xóa cột T này đi ==>là ta được kết quả chèn các dòng trắng mong muốn,

Để chiều em thử . Cảm ơn bác đã hỗ trợ
Lâu không vô diễn đàn . Ace vẫn nhiệt tình như thế

Bài đã được tự động gộp: 21/3/23

Hỗ trợ làm vào đâu nhỉ.

File của em là File dữ liệu công ty nên em chưa post lên được . Mong bác thông cảm . Bác có thể nói sơ qua cách làm của bác giúp em được không ạ

 

[Hoàng Tuấn 868]

Để chiều em thử . Cảm ơn bác đã hỗ trợ
Lâu không vô diễn đàn . Ace vẫn nhiệt tình như thế

Bài đã được tự động gộp: 21/3/23

File của em là File dữ liệu công ty nên em chưa post lên được

Bỏ cái dữ liệu công ty đi, cho vào đấy ABC không được sao.

 

[lưu tuấn dũng]

Em có đính kèm file có Form , yêu cầu tương tự như mong muốn của em . mong các bác hỗ trợ

 

[BuiQuangThuan]

Em có đính kèm file có Form , yêu cầu tương tự như mong muốn của em . mong các bác hỗ trợ

Bác muốn chèn thành bao nhiêu dòng

 

[SA_DQ]

Bỏ cái dữ liệu công ty đi, cho vào đấy ABC không được sao.

Máy trong công ti không cho fép đưa file ra ngoài, bác ạ!



Mình cũng có cách giống với bài 3:
Sau cột cuối liền kề (về phía phải, tất nhiên) ta nhập số thứ tự tăng dần cho đến dòng cuối chứa dữ liệu;
Sau đó ta nhập các số 10, 20 , . . . . . .
Bước tiếp theo ta xếp cột này tăng dần
Lúc đó dòng thứ 11 là trắng dữ liệu, ngoại trừ con số 10
. . . .

 

[lưu tuấn dũng]

Bác muốn chèn thành bao nhi

Bác muốn chèn thành bao nhiêu dòngF

Bác muốn chèn thành bao nhiêu dòng

Em chỉ lấy ví dụ minh họa thôi , Ví dụ em đang có 2000 dòng rồi . mà cứ 10 dòng em muốn thêm 1 dòng phải như nào

Bài đã được tự động gộp: 21/3/23

Máy trong công ti không cho fép đưa file ra ngoài, bác ạ!



Mình cũng có cách giống với bài 3:
Sau cột cuối liền kề (về phía phải, tất nhiên) ta nhập số thứ tự tăng dần cho đến dòng cuối chứa dữ liệu;
Sau đó ta nhập các số 10, 20 , . . . . . .
Bước tiếp theo ta xếp cột này tăng dần
Lúc đó dòng thứ 11 là trắng dữ liệu, ngoại trừ con số 10
. . . .

Vâng để em thử làm xem như thế nào . có chỗ nào em không hiểu mong các bác chỉ rõ thêm ạ ! Em cảm ơn các bác nhiều

 

[BuiQuangThuan]

Em chỉ lấy ví dụ minh họa thôi , Ví dụ em đang có 2000 dòng rồi . mà cứ 10 dòng em muốn thêm 1 dòng phải như nào

Cái này thao tác trực tiếp trên file thì nhìn lần sau làm được luôn. Chứ giải thích không biết giải thích sao.

 

[SA_DQ]

200 000 dòng thì #8 cũng làm được với sự trợ giúp của VBA

 

[cantl]

Mình cũng có cách giống với bài 3:

Em không có niềm tin với bác về việc này lắm.

Bài đã được tự động gộp: 21/3/23

200 000 dòng thì #8 cũng làm được với sự trợ giúp của VBA

Đúng cách hiểu của em nè.

 

[SA_DQ]

Sub ThemDongSau10DongDuLieu()
 Dim Rws As Long, J As Long, Col As Integer

 Rws = [B1].CurrentRegion.Rows.Count
 Col = [B1].CurrentRegion.Columns.Count
 Cells(1, Col + 1).Value = "GPE"
 For J = 2 To Rws
    Cells(J, Col + 1).Value = J
 Next J
 For J = Rws + 1 To 2 + Rws + Rws \ 10
    Cells(J, Col + 1).Value = (J - Rws) * 10
 Next J
End Sub