Chọn nhiều vùng cùng lúc trong excel bằng VBA

[LEHOC]

Chào anh/chị!
Anh/chị fix giúp em lỗi Run-time error '1004' Method 'Range' of object'_Global' failed trong đoạn code sau với ạ:

Option Explicit
Sub Macro2()
'Dim rngPrint As Range
Dim rngPrint As String
Dim rng As String
Dim i, j As Integer
Dim rngPr() As Variant
'Dim rng As Range
Application.Calculation = xlCalculationManual
j = 0
For i = 1 To 143
    Sheet1.Activate
'    Set rngPrint = Sheet1.Range(Cells(i, 1), Cells(i + 11, 34))
    rngPrint = Sheet1.Range(Cells(i, 1), Cells(i + 11, 34)).Address(0, 0)
    ReDim Preserve rngPr(j)
    rngPr(j) = rngPrint
'If Not rng Is Nothing Then
'    Set rng = Union(rng, rngPrint)
'Else
'    Set rng = rngPrint
'End If
    j = j + 1
    i = i + 11
Next i
rng = Join(rngPr, ",")
'rng.Select
rngPr = Range("""" & rng & """").Select
'ActiveSheet.PageSetup.PrintArea = rngPrint
Application.Calculation = xlCalculationAutomatic
End Sub

Em cảm ơn!

 

[giaiphap]

Chào anh/chị!
Anh/chị fix giúp em lỗi Run-time error '1004' Method 'Range' of object'_Global' failed trong đoạn code sau với ạ:

Option Explicit
Sub Macro2()
'Dim rngPrint As Range
Dim rngPrint As String
Dim rng As String
Dim i, j As Integer
Dim rngPr() As Variant
'Dim rng As Range
Application.Calculation = xlCalculationManual
j = 0
For i = 1 To 143
    Sheet1.Activate
'    Set rngPrint = Sheet1.Range(Cells(i, 1), Cells(i + 11, 34))
    rngPrint = Sheet1.Range(Cells(i, 1), Cells(i + 11, 34)).Address(0, 0)
    ReDim Preserve rngPr(j)
    rngPr(j) = rngPrint
'If Not rng Is Nothing Then
'    Set rng = Union(rng, rngPrint)
'Else
'    Set rng = rngPrint
'End If
    j = j + 1
    i = i + 11
Next i
rng = Join(rngPr, ",")
'rng.Select
rngPr = Range("""" & rng & """").Select
'ActiveSheet.PageSetup.PrintArea = rngPrint
Application.Calculation = xlCalculationAutomatic
End Sub

Em cảm ơn!

Tốt nhất đưa cái file lên đây và nêu vấn đề cần thực hiện sẽ giúp nhanh hơn là đọc code.

 

[LEHOC]

Tốt nhất đưa cái file lên đây và nêu vấn đề cần thực hiện sẽ giúp nhanh hơn là đọc code.

Cảm ơn anh/chị đã quan tâm, em đã fix được ạ, em xin đóng bài viết ạ.