Thử các loại khung

[Ba Tê]

For I = 1 To UBound(sArr, 1) For J = 1 To 4
dArr1(I, J) = sArr(I, J)
dArr2(I, J) = sArr(I, J)
dArr3(I, J) = sArr(I, J)
Next J
dArr1(I, 5) = sArr(I, 5)
dArr2(I, 5) = sArr(I, 6): dArr2(I, 6) = sArr(I, 7)
dArr3(I, 5) = sArr(I, 8): dArr3(I, 6) = sArr(I, 9)
Next I

For I = 1 To UBound(sArr, 1)    For J = 1 To 4
        dArr1(I, J) = sArr(I, J)
        dArr2(I, J) = sArr(I, J)
        dArr3(I, J) = sArr(I, J)
    Next J
    dArr1(I, 5) = sArr(I, 5)
    dArr2(I, 5) = sArr(I, 6): dArr2(I, 6) = sArr(I, 7)
    dArr3(I, 5) = sArr(I, 8): dArr3(I, 6) = sArr(I, 9)
Next I

For I = 1 To UBound(sArr, 1)    For J = 1 To 4        dArr1(I, J) = sArr(I, J)        dArr2(I, J) = sArr(I, J)        dArr3(I, J) = sArr(I, J)    Next J    dArr1(I, 5) = sArr(I, 5)    dArr2(I, 5) = sArr(I, 6): dArr2(I, 6) = sArr(I, 7)    dArr3(I, 5) = sArr(I, 8): dArr3(I, 6) = sArr(I, 9)Next I

For I = 1 To UBound(sArr, 1)
    For J = 1 To 4
        dArr1(I, J) = sArr(I, J)'-------------------
        dArr2(I, J) = sArr(I, J)
        dArr3(I, J) = sArr(I, J)
    Next J

[INFO1]For I = 1 To UBound(sArr, 1) For J = 1 To 4
dArr1(I, J) = sArr(I, J)
dArr2(I, J) = sArr(I, J)
dArr3(I, J) = sArr(I, J)
Next J
dArr1(I, 5) = sArr(I, 5)
dArr2(I, 5) = sArr(I, 6): dArr2(I, 6) = sArr(I, 7)
dArr3(I, 5) = sArr(I, 8): dArr3(I, 6) = sArr(I, 9)
Next I[/INFO1]
[NOTE1]For I = 1 To UBound(sArr, 1) For J = 1 To 4
dArr1(I, J) = sArr(I, J)
dArr2(I, J) = sArr(I, J)
dArr3(I, J) = sArr(I, J)
Next J
dArr1(I, 5) = sArr(I, 5)
dArr2(I, 5) = sArr(I, 6): dArr2(I, 6) = sArr(I, 7)
dArr3(I, 5) = sArr(I, 8): dArr3(I, 6) = sArr(I, 9)
Next I[/NOTE1]
[TIP]For I = 1 To UBound(sArr, 1) For J = 1 To 4
dArr1(I, J) = sArr(I, J)
dArr2(I, J) = sArr(I, J)
dArr3(I, J) = sArr(I, J)
Next J
dArr1(I, 5) = sArr(I, 5)
dArr2(I, 5) = sArr(I, 6): dArr2(I, 6) = sArr(I, 7)
dArr3(I, 5) = sArr(I, 8): dArr3(I, 6) = sArr(I, 9)
Next I[/TIP]
[WARNING1]For I = 1 To UBound(sArr, 1) For J = 1 To 4
dArr1(I, J) = sArr(I, J)
dArr2(I, J) = sArr(I, J)
dArr3(I, J) = sArr(I, J)
Next J
dArr1(I, 5) = sArr(I, 5)
dArr2(I, 5) = sArr(I, 6): dArr2(I, 6) = sArr(I, 7)
dArr3(I, 5) = sArr(I, 8): dArr3(I, 6) = sArr(I, 9)
Next I[/WARNING1]
[GPECODE=vb]
For I = 1 To UBound(sArr, 1)
For J = 1 To 4
dArr1(I, J) = sArr(I, J)
dArr2(I, J) = sArr(I, J)
dArr3(I, J) = sArr(I, J)
Next J
[/GPECODE]

For I = 1 To UBound(sArr, 1)
    For J = 1 To 4
        dArr1(I, J) = sArr(I, J)
        dArr2(I, J) = sArr(I, J)
        dArr3(I, J) = sArr(I, J)
    Next J

[GPECODE=vb]Public Sub LUU_BG()
Application.ScreenUpdating = False
ActiveSheet.Unprotect "bate"
Range("A4:H5").Copy
Range("R65000").End(xlUp).Offset(1, -1).PasteSpecial Paste:=xlPasteValues
Range("A7:H36").Copy
Range("R65000").End(xlUp).Offset(1, -1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
[A7:H36].ClearContents
[D4].Select
ActiveSheet.Protect "bate", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True
Application.ScreenUpdating = True
MsgBox "LUU XONG", , "GPE"
End Sub
[/GPECODE]
[GPECODE=vbnet]Public Sub LUU_BG()
Application.ScreenUpdating = False
ActiveSheet.Unprotect "bate"
Range("A4:H5").Copy
Range("R65000").End(xlUp).Offset(1, -1).PasteSpecial Paste:=xlPasteValues
Range("A7:H36").Copy
Range("R65000").End(xlUp).Offset(1, -1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
[A7:H36].ClearContents
[D4].Select
ActiveSheet.Protect "bate", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True
Application.ScreenUpdating = True
MsgBox "LUU XONG", , "GPE"
End Sub
[/GPECODE]