Xin giúp bài toán Insert dòng trong Excel !

[phukatana]

Tôi có một file Excel gồn 8 cột và 1200 dòng (như file đính kèm). Nội dung cần giúp tôi đã trình bày trong file. Các pro tải về và nghiên cứu làn giúp tôi nhé! Xin cảm ơn.

View more random threads:

• Theo dõi lãi vay
• Giup về quản lý sản xuất trong excel
• Kế toán DN SX
• Giúp e sửa công thức với
• Tự động ẩn những dòng không có dữ liệu trong Excel 2010
• Cách làm sổ sách trên excel
• Sử dụng hàm if để lọc số liệu và tính giá trị với nhiều điều kiện
• Hướng dẫn lập báo cáo tài chính bằng excel: Hình thức nhật ký chung
• Tìm số Cell bị sáp nhập trong Excel (Merge and Center)
• Xin file excel làm báo cáo lưu chuyển tiền tệ từ bảng cân đối kế toán

[poscovn]

Ðề: Xin giúp bài toán Insert dòng trong Excel !

Tôi có một file Excel gồn 8 cột và 1200 dòng (như file đính kèm). Nội dung cần giúp tôi đã trình bày trong file. Các pro tải về và nghiên cứu làn giúp tôi nhé! Xin cảm ơn.

Chép code này vào một modul và chạy nó

[COLOR=#000000]
Option ExplicitSub InsertRow[/COLOR][COLOR=#007700]()    [/COLOR][COLOR=#0000BB]Dim n [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long    Dim SoDong [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long    Dim i [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Integer    n [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"G65000"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Row    [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]n To 3 Step [/COLOR][COLOR=#007700]-[/COLOR][COLOR=#0000BB]1        [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]IsNumeric[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"G" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700])) = [/COLOR][COLOR=#0000BB]True Then            SoDong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"G" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700]) - [/COLOR][COLOR=#0000BB]Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"G" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700])            If [/COLOR][COLOR=#0000BB]SoDong [/COLOR][COLOR=#007700]> [/COLOR][COLOR=#0000BB]1 Then Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"B" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#DD0000]":H" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]SoDong [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Insert Shift[/COLOR][COLOR=#007700]:=[/COLOR][COLOR=#0000BB]xlDown        [/COLOR][COLOR=#007700]Else            [/COLOR][COLOR=#0000BB]SoDong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"G" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700]) - [/COLOR][COLOR=#0000BB]Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"A" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700])            If [/COLOR][COLOR=#0000BB]SoDong [/COLOR][COLOR=#007700]> [/COLOR][COLOR=#0000BB]1 Then                Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"B" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#DD0000]":H" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]SoDong [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Insert Shift[/COLOR][COLOR=#007700]:=[/COLOR][COLOR=#0000BB]xlDown            [/COLOR][COLOR=#007700]Else                [/COLOR][COLOR=#0000BB]Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"B" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#DD0000]":H" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Insert Shift[/COLOR][COLOR=#007700]:=[/COLOR][COLOR=#0000BB]xlDown            End [/COLOR][COLOR=#007700]If        [/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If    [/COLOR][COLOR=#0000BB]NextEnd Sub[/COLOR] 

[crawlers1214]

Ðề: Xin giúp bài toán Insert dòng trong Excel !

Chép code này vào một modul và chạy nó

[COLOR=#000000]
Option ExplicitSub InsertRow[/COLOR][COLOR=#007700]()    [/COLOR][COLOR=#0000BB]Dim n [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long    Dim SoDong [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long    Dim i [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Integer    n [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"G65000"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Row    [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]n To 3 Step [/COLOR][COLOR=#007700]-[/COLOR][COLOR=#0000BB]1        [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]IsNumeric[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"G" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700])) = [/COLOR][COLOR=#0000BB]True Then            SoDong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"G" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700]) - [/COLOR][COLOR=#0000BB]Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"G" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700])            If [/COLOR][COLOR=#0000BB]SoDong [/COLOR][COLOR=#007700]> [/COLOR][COLOR=#0000BB]1 Then Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"B" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#DD0000]":H" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]SoDong [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Insert Shift[/COLOR][COLOR=#007700]:=[/COLOR][COLOR=#0000BB]xlDown        [/COLOR][COLOR=#007700]Else            [/COLOR][COLOR=#0000BB]SoDong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"G" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700]) - [/COLOR][COLOR=#0000BB]Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"A" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700])            If [/COLOR][COLOR=#0000BB]SoDong [/COLOR][COLOR=#007700]> [/COLOR][COLOR=#0000BB]1 Then                Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"B" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#DD0000]":H" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]SoDong [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Insert Shift[/COLOR][COLOR=#007700]:=[/COLOR][COLOR=#0000BB]xlDown            [/COLOR][COLOR=#007700]Else                [/COLOR][COLOR=#0000BB]Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"B" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#DD0000]":H" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Insert Shift[/COLOR][COLOR=#007700]:=[/COLOR][COLOR=#0000BB]xlDown            End [/COLOR][COLOR=#007700]If        [/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If    [/COLOR][COLOR=#0000BB]NextEnd Sub[/COLOR] 

Đầu tiên xin cảm ơi bạn anhphuong81! Mình làm được rồi! Nhưng vẫn chua chuẩn lắm (môt số chỗ mã NV ko liên tục nhưng đoạn code vẫn ko insert dòng vào phải làm thủ công mất công quá!

[hatieumy]

Ðề: Xin giúp bài toán Insert dòng trong Excel !

Đầu tiên xin cảm ơi bạn anhphuong81! Mình làm được rồi! Nhưng vẫn chưa chuẩn lắm (môt số chỗ mã NV ko liên tục nhưng đoạn code vẫn ko insert dòng vào phải làm thủ công mất công quá!

[hungpro9x]

Ðề: Xin giúp bài toán Insert dòng trong Excel !

Tôi có một file Excel gồn 8 cột và 1200 dòng (như file đính kèm). Nội dung cần giúp tôi đã trình bày trong file. Các pro tải về và nghiên cứu làn giúp tôi nhé! Xin cảm ơn.

Ở đây tôi sử dụng File của bạn để hướng dẫn bạn sử dụng công thức và dùng Auto Fillter để thêm các dòng cần thêm, dùng cách này nếu thành thục bạn có thể thao tác từ 5 đến 10 phút dù cho dữ liệu của bạn lên đến 10.000 dòng, đãm bảo chính xác 100%. Cách thực hiện như hướng dẫn trong File.
Mau chen dong tu dong.rar - File Shared from Box - Free Online File Storage

[angel_hoangyen]

Ðề: Xin giúp bài toán Insert dòng trong Excel !

Ở đây tôi sử dụng File của bạn để hướng dẫn bạn sử dụng công thức và dùng Auto Fillter để thêm các dòng cần thêm, dùng cách này nếu thành thục bạn có thể thao tác từ 5 đến 10 phút dù cho dữ liệu của bạn lên đến 10.000 dòng, đãm bảo chính xác 100%. Cách thực hiện như hướng dẫn trong File.
Mau chen dong tu dong.rar - File Shared from Box - Free Online File Storage

Nói thêm: trong sheet3 tôi mới làm mẫu 50 dòng, Do mã NV của bạn có đến 1200 do đó ở sheet3 bạn phải đánh số thứ tự ở cột mã NV số thứ tự liên tục từ 1, 2, 3... đến 1200 mới cho kết quả chính xác.

[trungvn2092]

Ðề: Xin giúp bài toán Insert dòng trong Excel !

Bạn có thể đến đây:http://www.**************.net/showthread.php?2054-Thủ-Thuật-Excel&p=18740&posted=1#post18740
03 bài kể từ #37

Chúc bạn tham khảo suông sẻ!

[chautuanpro91]

Ðề: Xin giúp bài toán Insert dòng trong Excel !

Đầu tiên xin cảm ơi bạn anhphuong81! Mình làm được rồi! Nhưng vẫn chưa chuẩn lắm (môt số chỗ mã NV ko liên tục nhưng đoạn code vẫn ko insert dòng vào phải làm thủ công mất công quá!

Trong file của bạn hãy kiểm tra cột G vì có số đứng sau nhỏ hơn số trước. yêu cầu của bài toán là khi Ínert dòng, giá trị ở cột G và cột A là trùng nhau

[duymen]

Ðề: Xin giúp bài toán Insert dòng trong Excel !

Trong file của bạn hãy kiểm tra cột G vì có số đứng sau nhỏ hơn số trước. yêu cầu của bài toán là khi Ínert dòng, giá trị ở cột G và cột A là trùng nhau

Trong Excel 2003 bạn vào Data và Sort để sắp xếp nó lại là đáp ứng được yêu cầu (vì đâu có phải ai cũng biết dùng VBA).

[boylangtu]

Ðề: Xin giúp bài toán Insert dòng trong Excel !

Trong Excel 2003 bạn vào Data và Sort để sắp xếp nó lại là đáp ứng được yêu cầu (vì đâu có phải ai cũng biết dùng VBA).

Trong cột A, STT được ghi liền nhau từ 1 đến 1200. Nếu short như bạn thì sao nhỉ? bạn xem lại yêu cầu của chủ thớt nhé
Thân