Viết như thế nào là đúng cú pháp

[nguoikemcoi]

Thân gửi GPE
Em record macro việc chèn 3 hàng thấy ghi code như sau:

    Rows("7:10").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Bây giờ em có 2 biến i và j.
Ý em muốn là:

   Rows("i:i+j").Select
   Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Trong đó i là số của hàng đầu tiên (tương ứng với Số 7) trong code Row("7:10")
và số j là số dòng muốn chèn (10 = i+j)
Em khai báo 2 biến i,j dạng Long.
Vậy viết như thế nào để excel hiểu.
Mong nhận được giúp đỡ của AC.
Trân trọng

 

[ChanhTQ@]

Có lẻ vầy để bạn tham khảo

Option Explicit
Sub ThemDong()
 Const jj As Byte = 9:         Dim jW As Long
    
 jW = 7
    Rows(jW & ":" & jW + jj).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

 

[nguoikemcoi]

Option Explicit
Sub ThemDong()
 Const jj As Byte = 9:         Dim jW As Long
    
 jW = 7
    Rows(jW & ":" & jW + jj).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

Cảm ơn anh ChanhTQ@
Xin hỏi anh về đoạn:

Const jj As Byte = 9:         Dim jW As Long  -> Anh có thể giải thích giúp em về kiểu này không ạ!

Phải chăng là em đã định dạng sai kiểu dữ liệu cho biến ij.
Thân.

 

[SA_DQ]

Bạn sai ở đây:

Rows("i:i+j").Select

Mà fải là Rows(i & ":" & i + J).Select
Còn kiểu dữ liệu thì có thể thử với Integer xem sao