Các cách thêm dòng mới vô 1 CSDL (cơ sở dữ liệu) đã sẵn

[kevinvu1987]

Ðề: Thêm số dòng đã định vô những vị trị chỉ định

Các bạn nghiên cứu macro này xem nó thêm dòng theo kiểu gì?!
:giavo:

[COLOR=#000000]
Option ExplicitSub ThemDong[/COLOR][COLOR=#007700]() [/COLOR][COLOR=#0000BB]Dim Nn [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Kk [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long [/COLOR][COLOR=#007700]Const [/COLOR][COLOR=#0000BB]aA [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Integer [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]:               Const [/COLOR][COLOR=#0000BB]Bb [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Integer [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 On Error Resume Next Kk [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]InputBox[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Hãy Nhap Só Hàng Càn Them:"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"GPE.COM Xin Chào"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Nn [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]InputBox[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Hãy Nhap Giá Tri Cuc Dai Cua N:"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"GPE.COM"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]) For [/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Nn To 1 Step [/COLOR][COLOR=#007700]-[/COLOR][COLOR=#0000BB]1    Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]aA [/COLOR][COLOR=#007700]* ([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700]) ^ [/COLOR][COLOR=#0000BB]2 [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]Bb[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Interior[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]ColorIndex [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]34 [/COLOR][COLOR=#007700]+ ([/COLOR][COLOR=#0000BB]J Mod 9[/COLOR][COLOR=#007700])    [/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]aA [/COLOR][COLOR=#007700]* ([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700]) ^ [/COLOR][COLOR=#0000BB]2 [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]Bb[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Kk[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]EntireRow[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Insert Next JEnd Sub[/COLOR] 

Tham khảo thêm tại: Thm k c?t(hng) vo cc c?t(hng) ??nh tr??c

[dienlanhhongphuc]

Ðề: Thêm dòng với nội dung tăng dần fù hợp trình tự định trước.

Dưới đây là bảng liệt kê các trận thi đấu tranh giải khác nhau của 1 đơn vị hành chính:

[COLOR=#000000]
TT[/COLOR][COLOR=#007700]|[/COLOR][COLOR=#DD0000]'Vòng TĐ'[/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]Độ tuổi   [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]Hạng[/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]Đ[/COLOR][COLOR=#007700]. |[/COLOR][COLOR=#0000BB]Loại [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#DD0000]'Số đội'[/COLOR][COLOR=#007700]|..[/COLOR][COLOR=#0000BB]1 [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]Chung kết[/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]Nhi       [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]E1  [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]R  [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]Latin[/COLOR][COLOR=#007700]|  [/COLOR][COLOR=#0000BB]7     [/COLOR][COLOR=#007700]|..[/COLOR][COLOR=#0000BB]2 [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]Tứ kết   [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]Nhi       [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]F1  [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]R  [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]Latin[/COLOR][COLOR=#007700]|  [/COLOR][COLOR=#0000BB]15    [/COLOR][COLOR=#007700]|..[/COLOR][COLOR=#0000BB]3 [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]Bán kết  [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]Thiếu niên[/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]D   [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]C[/COLOR][COLOR=#007700],[/COLOR][COLOR=#0000BB]R[/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]Latin[/COLOR][COLOR=#007700]|  [/COLOR][COLOR=#0000BB]12    [/COLOR][COLOR=#007700]|..[/COLOR][COLOR=#0000BB]4 [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]Chung kết[/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]Nhi       [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]E2  [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]C[/COLOR][COLOR=#007700],[/COLOR][COLOR=#0000BB]R[/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]Latin[/COLOR][COLOR=#007700]|  [/COLOR][COLOR=#0000BB]3     [/COLOR][COLOR=#007700]|..[/COLOR][COLOR=#0000BB]5 [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]Vòng loại[/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]Thiếu Nhi [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]F1  [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]R  [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]Latin[/COLOR][COLOR=#007700]|  [/COLOR][COLOR=#0000BB]27    [/COLOR][COLOR=#007700]|..[/COLOR][COLOR=#0000BB]6 [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]Chung kết[/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]Nhi đồng1 [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]E3  [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]R[/COLOR][COLOR=#007700],[/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]Latin[/COLOR][COLOR=#007700]|  [/COLOR][COLOR=#0000BB]7     [/COLOR][COLOR=#007700]|..[/COLOR] 

Nhiệm vụ đề ra là ta fải tiến hành thêm 1 dòng bên dưới các dòng mà cột có tên 'Vòng đấu' không chứa từ 'Chung kết'
Hơn nửa tại cột này & cột số đội ở dòng mới sẽ thay theo qui luật sau:
(*) [Cột vòng TĐ] thay theo trình tự 'Vòng loại' => 'Tứ kết' => 'Bán kết' => 'Chung kết'
(*) [Cột Số đội] theo trật tự sau: (Hơn 24) => 24 => 12 => 6
Còn các cột khác của dòng mới này lấy số liệu của dòng trên nó.

Các bạn xem file có tại bài 5 ở đây: Ch�n th�m d�ng c� ?i?u ki?n

:thadieu:

[tai line]

Ðề: Điền đầy bằng các dòng trống vô 1 CSDL sẵn có số thứ tự không liên tục

BÀI II THÊM DÒNG MỚI ĐỂ CÓ TRẬT TỰ CHO TRƯỚC ​

Ví dụ ta có CSDL như sau:

STT  HTen    Phái   NgSinh
3   Hà My     Nam    4/1/75
5   Hà Vy     Nữ     1/4/75
' . . . . . . . . '

Giờ ta muốn thêm 2 dòng trống trên chàng Hà My & 1 dòng trên nàng Hà Vy, để trở thành như sau:

1
2
3   Hà My     Nam    4/1/75
4
5   Hà Vy     Nữ     1/4/75
' . . . . . . . . '

(Có nghĩa là: Thêm 2 dòng cho chàng Hà My ( số 3) & 1 dòng cho nàng Hà Vy (số 5))

Chuyện như vậy sẽ nhanh chóng & không khó, một khi ta có trong tay macro như sau

Option Explicit
Sub ThemCacDongTrong()
 Dim Rng As Range, sRng As Range
 Dim Max_ As Long, jJ As Long
 
 Sheets("GPE1").Select:                         Columns("A:J").Delete
 ThisWorkbook.Worksheets("S0").[B2].CurrentRegion.Copy Destination:=[A1]
 
 Set Rng = Range([A2], [A65500].End(xlUp))
 Max_ = Application.WorksheetFunction.Max(Rng)
 For jJ = 1 To Max_
    Set sRng = Rng.Find(jJ, , xlFormulas, xlWhole)
    If sRng Is Nothing Then
        [A65500].End(xlUp).Offset(1).Value = jJ
    End If
 Next jJ
 Set Rng = [B2].CurrentRegion.Offset(1)
 Rng.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, Orientation:=xlTopToBottom
 Randomize:             [A1].Interior.ColorIndex = 34 + 9 * Rnd() \ 1
End Sub

Ghi chú theo macro ta có: CSDL nguồn tại trang tính 'S0';
Kết quả mà macro đem lại tại trang tính có tên 'GPE1'

Bạn ơi, mình làm theo thì excel hiện ra bảng thông báo "subscript out of range" là sao nhỉ? Khắc phục như thế nào vậy bạn?

[viendaotao]

Ðề: Điền đầy bằng các dòng trống vô 1 CSDL sẵn có số thứ tự không liên tục

Bạn ơi, mình làm theo thì excel hiện ra bảng thông báo "subscript out of range" là sao nhỉ? Khắc phục như thế nào vậy bạn?

Bạn đưa file mà chạy macro báo lỗi lên đi; Mình & các bạn khác sẽ xem & trợ giúp thêm, nếu được.

[dksupport]

Ðề: Thêm 5 dòng vô mỗi 1 dòng

Mình có bảng dữ liệu như vùng được tô màu vàng như trong file đ1nh kèm

Giờ mình muốn mỗi hàng tương ứng ở cột [A] được thêm 5 dòng nữa với yêu cầu sau:

(*) Ở cột [A]: Giá trị cả 5 dòng thêm trùng với dòng đang khảo sát;

(*) Các cột & [C] lấy giá trị của vùng [B4:C8]

Macro để thực hiện nhiệm vụ có nội dung như sau:

[COLOR=#000000]
Option ExplicitSub Them5Dong[/COLOR][COLOR=#007700]() [/COLOR][COLOR=#0000BB]Dim Cls [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range Dim Rws [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]W [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Dg [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long     Sheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Nguon"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Select Rws [/COLOR][COLOR=#007700]= [[/COLOR][COLOR=#0000BB]A3[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlDown[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Row Dg [/COLOR][COLOR=#007700]= [[/COLOR][COLOR=#0000BB]B3[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlDown[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Row ReDim Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1 To Rws [/COLOR][COLOR=#007700]* [/COLOR][COLOR=#0000BB]Dg[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1 To 3[/COLOR][COLOR=#007700]) For [/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]4 To Rws    [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]Each Cls In Range[/COLOR][COLOR=#007700]([[/COLOR][COLOR=#0000BB]B4[/COLOR][COLOR=#007700]], [[/COLOR][COLOR=#0000BB]B4[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlDown[/COLOR][COLOR=#007700]))        [/COLOR][COLOR=#0000BB]W [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]W [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1        Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]4 [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]W[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"A"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value        Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]4 [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]W[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]Cls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value        Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]4 [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]W[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]Cls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value    Next Cls    W [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]W [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]1 Next J [/COLOR][COLOR=#007700][[/COLOR][COLOR=#0000BB]A4[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Dg [/COLOR][COLOR=#007700]* [/COLOR][COLOR=#0000BB]Rws[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]()[/COLOR][COLOR=#0000BB]End Sub[/COLOR] 

[trangtrinoithat]

Nhờ Quý vị và các bạn giúp đỡ cho tôi vấn đề cụ thể như sau:
Tự động thêm dòng đầu tiên (Và tô màu cho dòng thêm đó) cho nhóm ký tự giống nhau của các ô ở cột B (Các ký tự đầu giống nhau có thể từ 2 => 4 ký tự và không bao gồm ký tự là số)
(Kiểu như là thêm dòng tiêu đề cho các nhóm ký tự giống nhau).

(ác bạn sẽ rõ hơn khi xem tại:
http://www.******************/forum/...u-vàng-cho-dòng-thêm-đó)-dựa-trên-ký-tự-của-ô

[Tuanvuong]

Em chào anh TQChanh
VBA code a viết tuyệt quá. Em rất thích nhưng loay hoay mãi vẫn mông lung quá
A giúp e với.
em có file kiểu như này:
Bước 1: đếm số dòng ở cột A có chứa dữ liệu ở Sheet "1311"
Bước 2 lại đếm số dòng từ
ACCOUNT AND NOTES RECEIVABLE đến END ACCOUNT AND NOTES RECEIVABLE ở cột E chứa số >0 ở sheet "Jan"
Bước 3: So sánh số dòng đếm được ở bước 1 và bước 2
- Nếu số dòng bước 1< bước 2 thì chèn thêm dòng đúng bằng số dòng chênh lệch ( dạng insert copy cell)
- Ngược lại: xóa bớt dòng
Bước 4: copy dữ liệu từ ô A10 đến ô A64 ở sheet "1311" vào ô A3 đến A20 ở sheet "Jan"
copy dữ liệu từ ô E10 đến ô E64 ở sheet "1311" vào ô E3 đến E20 ở sheet "Jan"
rồi lại làm tương tự với vùng
Accrued cost of projects ở sheet "Jan" với sheet "33505"

[hunghv63]

Chèn thêm hàng có điều kiện và tự đông tính tổng ​

Chào Anh/ Chị
Mình có File excel nhập theo số công đoạn của chuyền may và số lượng từng công đoạn,
Có cách nào tự động chèn một hàng sau mỗi công đoạn và tự động tính tổng sản lượng của mỗi công đoạn.
Xin cám ơn.

[COLOR=#000000]
Option ExplicitSub ChenHangVaTinhTong[/COLOR][COLOR=#007700]() [/COLOR][COLOR=#0000BB]Dim Arr[/COLOR][COLOR=#007700](), [/COLOR][COLOR=#0000BB]CSDL[/COLOR][COLOR=#007700](), [/COLOR][COLOR=#0000BB]Dic [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Object Dim Tong [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Double[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]W [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long Dim StrC [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String Sheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"DuLieu"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Select Set Dic [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]CreateObject[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Scripting.Dictionary"[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]CSDL[/COLOR][COLOR=#007700]() = [[/COLOR][COLOR=#0000BB]B2[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]CurrentRegion[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value ReDim Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1 To 99 [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]UBound[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]CSDL[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]), [/COLOR][COLOR=#0000BB]1 To 4[/COLOR][COLOR=#007700]) For [/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 To UBound[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]CSDL[/COLOR][COLOR=#007700](), [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700])  [/COLOR][COLOR=#0000BB]StrC [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"L" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]CStr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]CSDL[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]))  If [/COLOR][COLOR=#0000BB]Not Dic[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]exists[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]StrC[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Then  W [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]W [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]2  Dic[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Add StrC[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]W  Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]W[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]CSDL[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]):  [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]W[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]CSDL[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700])  [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]W[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]CSDL[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]):  [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]W[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]4[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]CSDL[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]4[/COLOR][COLOR=#007700])  [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]W [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]4[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]Tong[/COLOR][COLOR=#007700]:  [/COLOR][COLOR=#0000BB]Tong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]W[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]4[/COLOR][COLOR=#007700])  Else  [/COLOR][COLOR=#0000BB]W [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]W [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1  Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]W[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]CSDL[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]):  [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]W[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]CSDL[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700])  [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]W[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]CSDL[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]):  [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]W[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]4[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]CSDL[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]4[/COLOR][COLOR=#007700])  [/COLOR][COLOR=#0000BB]Tong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Tong [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]W[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]4[/COLOR][COLOR=#007700])  [/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Next J [/COLOR][COLOR=#007700][[/COLOR][COLOR=#0000BB]f2[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]W [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]9[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]4[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]()  [/COLOR][COLOR=#DD0000]'!!!'[/COLOR][COLOR=#0000BB]End Sub[/COLOR] 

(http://www.******************/forum/showthread.php?102596-Ch%C3%A8n-th%C3%AAm-h%C3%A0ng-c%C3%B3-%C4%91i%E1%BB%81u-ki%E1%BB%87n-v%C3%A0-t%E1%BB%B1-%C4%91%C3%B4ng-t%C3%ADnh-t%E1%BB%95ng)

[mrthuvltk]

Jindo có file cần chèn thêm 3 dòng & lặp lại đòng tiêu đề sau mỗi Inv-No mới. Nhưng trong file đó cũng có 1 Inv-No chỉ có 1 dòng, nhưng cũng có có thể có 1 Lot-No trùng nhiều dòng. ACE giúp dùm với vì dữ liệu rất lớn nên không thể ngồi insert nhiều lần và động tác này lập đi lập lại. ACE giúp với.
Các bạn có thể xem hình tại #8 ở: http://www.******************/forum/showthread.php?103404-Code-insert-them-3-dong&p=643104#post643104

Macro có nội dung như sau:

[COLOR=#000000]
Option Explicit Dim Ar0[/COLOR][COLOR=#007700](), [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700](), [/COLOR][COLOR=#0000BB]dArr[/COLOR][COLOR=#007700]()[/COLOR][COLOR=#0000BB]Sub Them3Dong[/COLOR][COLOR=#007700]() [/COLOR][COLOR=#0000BB]Dim Rws [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]W [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long ReDim Ar0[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1 To 1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1 To 7[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Rws [/COLOR][COLOR=#007700]= [[/COLOR][COLOR=#0000BB]B1[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]CurrentRegion[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Rows[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Count Ar0[/COLOR][COLOR=#007700]() = [[/COLOR][COLOR=#0000BB]A1[/COLOR][COLOR=#007700]:[/COLOR][COLOR=#0000BB]G1[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Value Arr[/COLOR][COLOR=#007700]() = [[/COLOR][COLOR=#0000BB]A2[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Rws [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]7[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value ReDim dArr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1 To 4 [/COLOR][COLOR=#007700]* [/COLOR][COLOR=#0000BB]Rws[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1 To 7[/COLOR][COLOR=#007700])  [/COLOR][COLOR=#0000BB]W [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]:  [/COLOR][COLOR=#0000BB]TDe W [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 To UBound[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]())  [/COLOR][COLOR=#0000BB]W [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]W [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]:  [/COLOR][COLOR=#0000BB]dArr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]W[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700])  [/COLOR][COLOR=#0000BB]dArr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]W[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]):  [/COLOR][COLOR=#0000BB]dArr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]W[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700])  If [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) <> [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) And [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) <> [/COLOR][COLOR=#DD0000]"" [/COLOR][COLOR=#0000BB]Then  W [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]W [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]4[/COLOR][COLOR=#007700]:  [/COLOR][COLOR=#0000BB]TDe W  [/COLOR][COLOR=#007700]ElseIf [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Then  dArr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]W[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]):  [/COLOR][COLOR=#0000BB]dArr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]W[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700])  [/COLOR][COLOR=#0000BB]dArr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]W[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700])  [/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If  If [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#DD0000]"" [/COLOR][COLOR=#0000BB]Then [/COLOR][COLOR=#007700]Exit For [/COLOR][COLOR=#0000BB]Next J [/COLOR][COLOR=#007700][[/COLOR][COLOR=#0000BB]r1[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]9 [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]W[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]7[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]dArr[/COLOR][COLOR=#007700]()[/COLOR][COLOR=#0000BB]End Sub[/COLOR] 

Sub TDe(Rw As Long)
 Dim J As Byte
 For J = 1 To 7
  dArr(Rw, J) = Ar0(1, J)
 Next J
End Sub

[tym]

Mình có bảng số liệu trên trang tính 'MaSo' bắt đầu từ [B4] như mô fỏng dưới đây:

[COLOR=#000000]
Mã [/COLOR][COLOR=#007700]| [/COLOR][COLOR=#0000BB]Danh Sách Tiêu chuẩn  1   [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]TCVN 55[/COLOR][COLOR=#007700]:[/COLOR][COLOR=#0000BB]2014      [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]TCVN 53[/COLOR][COLOR=#007700]:[/COLOR][COLOR=#0000BB]2015   2  [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]TCVN 2010[/COLOR][COLOR=#007700]:[/COLOR][COLOR=#0000BB]10      [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]TCVN 3000[/COLOR][COLOR=#007700]-[/COLOR][COLOR=#0000BB]00      [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]TCVN 1986[/COLOR][COLOR=#007700]-[/COLOR][COLOR=#0000BB]13   3  [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]TCVN 60[/COLOR][COLOR=#007700]:[/COLOR][COLOR=#0000BB]2015      [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]TCVN 74[/COLOR][COLOR=#007700]:[/COLOR][COLOR=#0000BB]2014      [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]TCVN 79[/COLOR][COLOR=#007700]:[/COLOR][COLOR=#0000BB]2015      [/COLOR][COLOR=#007700]|[/COLOR][COLOR=#0000BB]TCVN 4065[/COLOR][COLOR=#007700]-[/COLOR][COLOR=#0000BB]88[/COLOR][COLOR=#007700]. . . . . . .   [/COLOR] 

Có nghĩa là ứng với 1 mã tiêu chuẩn ta c0o1 thể có các tiêu chuẩn khác nhau về số lượng, có thể từ 1 đến 7 tiêu chuẩn;
Công việc của mình fải làm là:
Ở trang tính khác ta cần chọ 1 trong các mã ở ô [P2] thì tại cột [B:B] bắt đầu từ [B7] hiện lên tất tần tật các tiêu chuẩn ứng với nó, & buột fải có 2 dòng tên chúng & 1 dòng dưới chúng có nội dung như dau:

[COLOR=#000000]
[/COLOR][COLOR=#DD0000]'a. Tiêu Chuẩn'[/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]Các tiêu chuẩn về điều hòa không khí và thông gió[/COLOR][COLOR=#007700]:[/COLOR][COLOR=#0000BB]TCVN 60[/COLOR][COLOR=#007700]:[/COLOR][COLOR=#0000BB]2015TCVN 74[/COLOR][COLOR=#007700]:[/COLOR][COLOR=#0000BB]2014TCVN 79[/COLOR][COLOR=#007700]:[/COLOR][COLOR=#0000BB]2015TCVN 4065[/COLOR][COLOR=#007700]-[/COLOR][COLOR=#0000BB]88[/COLOR][COLOR=#DD0000]'b.Các catalogue thiết bị'[/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]Máy và thiết bị lạnh [/COLOR][COLOR=#007700]: [/COLOR][COLOR=#0000BB]FUJITSU[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]CARRIER[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]DAIKIN[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]TRANE[/COLOR] 

Như đã nêu ở trên, số lượng các tiêu chuẩn ứng với từng mã là khác nhau, nên có lúc ta cần xóa bớ dòng & cũng fải có lúc ta cần thêm dòng để liệt kê các tiêu chuẩn của mã giữa các dòng buột có của Form;

Macro sau sẽ làm được việc đó:

[COLOR=#000000]
Option Explicit[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Worksheet_Change[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ByVal Target [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700])[/COLOR][COLOR=#0000BB]Dim Sh [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Worksheet[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Rng [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]sRng [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Rg0 [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Cls [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]RangeDim DgCu [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]DgMoi [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Integer[/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Not Intersect[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Target[/COLOR][COLOR=#007700], [[/COLOR][COLOR=#0000BB]P2[/COLOR][COLOR=#007700]]) [/COLOR][COLOR=#0000BB]Is Nothing Then  DgCu [/COLOR][COLOR=#007700]= [[/COLOR][COLOR=#0000BB]C8[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]13[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Find[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"b."[/COLOR][COLOR=#007700], , [/COLOR][COLOR=#0000BB]xlFormulas[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]xlPart[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Row [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]9  Set Sh [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]ThisWorkbook[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Worksheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Ma so"[/COLOR][COLOR=#007700])  [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]C65500[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], -[/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"GPE.COM"  [/COLOR][COLOR=#0000BB]Set Rng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]B4[/COLOR][COLOR=#007700]], [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]b65500[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]))  [/COLOR][COLOR=#0000BB]Set sRng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Rng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Find[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Target[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value[/COLOR][COLOR=#007700], , , [/COLOR][COLOR=#0000BB]xlWhole[/COLOR][COLOR=#007700])  If [/COLOR][COLOR=#0000BB]sRng Is Nothing Then  MsgBox [/COLOR][COLOR=#DD0000]"Nothing"  [/COLOR][COLOR=#007700]Else  [/COLOR][COLOR=#0000BB]Set Rg0 [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]), [/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlDown[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](-[/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]))  [/COLOR][COLOR=#0000BB]DgMoi [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Rg0[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Rows[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Count  [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]DgMoi [/COLOR][COLOR=#007700]< [/COLOR][COLOR=#0000BB]DgCu Then  [/COLOR][COLOR=#007700][[/COLOR][COLOR=#0000BB]C10[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]DgCu [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]DgMoi[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]EntireRow[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Delete  [/COLOR][COLOR=#007700]ElseIf [/COLOR][COLOR=#0000BB]DgMoi [/COLOR][COLOR=#007700]> [/COLOR][COLOR=#0000BB]DgCu Then  [/COLOR][COLOR=#007700][[/COLOR][COLOR=#0000BB]C10[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]DgMoi [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]DgCu[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]EntireRow[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Insert  End [/COLOR][COLOR=#007700]If  For [/COLOR][COLOR=#0000BB]Each Cls In Rg0  J [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1  [/COLOR][COLOR=#007700][[/COLOR][COLOR=#0000BB]C8[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Cls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value  Next Cls  End [/COLOR][COLOR=#007700]If  [/COLOR][COLOR=#0000BB]Randomize[/COLOR][COLOR=#007700]:  [/COLOR][COLOR=#0000BB]Target[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Interior[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]ColorIndex [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]34 [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]9 [/COLOR][COLOR=#007700]* [/COLOR][COLOR=#0000BB]Rnd[/COLOR][COLOR=#007700]() \ [/COLOR][COLOR=#0000BB]1End [/COLOR][COLOR=#007700]If[/COLOR][COLOR=#0000BB]End Sub[/COLOR] 

Các bạn có thể tham khảo tại: http://www.******************/forum/...t-code-tự-chèn-thêm-hoặc-bớt-dòng-trong-excel