Nhờ các anh chỉ dùm lỗi: Run-time error '1004' Method 'Range' of object'_Global' failed (1 người xem)

[Trunghieutin10]

i = 2
    While i <= Sheets(nWks).Cells(Rows.Count, 1).End(xlUp).Row
        Sheets(nWks).Select
        nMH = ""
        nBanVe = Cells(i, 1)
        For m = 15 To iCol
            If Cells(i, m) <> "" Then
                If nMH = "" Then
                    nMH = Cells(1, m).Address
                Else
                    nMH = nMH & "," & Cells(1, m).Address
                End If
            End If
        Next
        Range(nMH).Select
        Selection.Copy
        For m = 1 To Sheets.Count
            Sheets(m).Select
            If ActiveSheet.Name = nBanVe Then
                Range(Cells(68, 33), Cells(68, 33)).Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
                Exit For
            End If
        Next
        i = i + 1
    Wend

Báo lỗi phần Range(nMH).Select. Khong biet có phải số địa chỉ của em quá nhiều không hơn hơn 200 địa chỉ.
Cảm ơn các anh chị nhiều.

 

[Trunghieutin10]

Có cách nào sử dung phương thức trên không giới hạn số lượng địa chỉ???

 

[Hoang2013]

9      nMH = ""
       nBanVe = Cells(i, 1)
       For m = 15 To iCol
           If Cells(i, m) <> "" Then
               If nMH = "" Then
                   nMH = Cells(1, m).Address
               Else
                   nMH = nMH & "," & Cells(1, m).Address
               End If
           End If
       Next
       Range(nMH).Select
' . . . . . '

Theo mình hiểu thì bạn cần xài fương thức Union() mới nối các ô í lại được
Theo kiểu

Dim MH17 As Rng, MyAdd as String 
 For M = 15 To iCol
    If nMH ="" Then
        Set MH17 = Cells(1, m)
    Else
        Set MH17 = Union(MH17, Cells(1,m))
   end if
' ' ' ' '

 

[Trunghieutin10]

9      nMH = ""
       nBanVe = Cells(i, 1)
       For m = 15 To iCol
           If Cells(i, m) <> "" Then
               If nMH = "" Then
                   nMH = Cells(1, m).Address
               Else
                   nMH = nMH & "," & Cells(1, m).Address
               End If
           End If
       Next
       Range(nMH).Select
' . . . . . '

Theo mình hiểu thì bạn cần xài fương thức Union() mới nối các ô í lại được
Theo kiểu

Dim MH17 As Rng, MyAdd as String
 For M = 15 To iCol
    If nMH ="" Then
        Set MH17 = Cells(1, m)
    Else
        Set MH17 = Union(MH17, Cells(1,m))
   end if
' ' ' ' '

Cám ơn bạn mình muốn lấy địa chỉ của ô cells. Mình xài cách khác cũng được