매크로 실행 중 오류가 발생했습니다.

Question

아래 코드를 사용하여 매크로를 실행하는 중 오류 메시지가 나타납니다.

활성 열에서 일부 셀 서식의 표시 값

을 기본 정밀도 다른 수준을 사용하고 있기 때문에 우리는 값을 입력하지 않은

Excel 통합 문서에서 직접 runned

오류 메시지

오류 메시지

런타임 오류가 9 첨자 범위를 벗어난,

VBA

를 통해 runned 때 코드에

는 With Windows("InstData_TEMS_Existing").Sheets("L")

당신이 sktneer 으로 코드를 변경 한 경우

Sub Graph() 
' 
' Graph Macro 
' 
' Keyboard Shortcut: Ctrl+e 
' 
'Select values in a column from specified workbook and sheet 
Dim LR As Long, cell As Range, rng As Range 

With Workbooks("Area3-LG").Sheets("Graph data") 
LR = .Range("B" & .Rows.Count).End(xlUp).Row 
For Each cell In .Range("B4:B" & LR) 
    If cell.Value <> "" Then 
     If rng Is Nothing Then 
      Set rng = cell 
     Else 
      Set rng = Union(rng, cell) 
     End If 
    End If 
Next cell 
End With 
rng.Copy ' copy the union range (no need to select it first) 

'Paste without all the selecting 
'Error code below 
With Windows("InstData_TEMS_Existing").Sheets("L") 
' Paste (without select) un the next empty cell fromn column AA 
.Range("AA" & .Rows.Count).End(xlUp).Offset(1).PasteSpecial  Paste:=xlPasteValues, Operation:=xlNone, _ 
         SkipBlanks:=False, Transpose:=False 
End With 

Application.CutCopyMode = False 

'Go back to previous workbook & delete column 
Workbooks("Area3-LG").Sheets("Graph data").Columns("B:B").Delete   Shift:=xlToLeft 

End Sub 

Answer 1

, 그것은 하나하는 파일이 될 수 있습니다 (With Workbooks("InstData_TEMS_Existing.xlsx").Sheets("L") 오히려 With Windows(...보다 사용) 및 경계 오류의 밖으로 첨자를 얻을 제안 InstData_TEMS_Existing.xlsx이 열려 있지 않거나 시트에 L이 포함되어 있지 않습니다. with -statement 위에 2 개의 Debug.Print 문을 두는 것이 좋습니다.

Debug.print Workbooks("InstData_TEMS_Existing.xlsx").name 
Debug.print Workbooks("InstData_TEMS_Existing.xlsx").sheets("L").name 

그러면 코드 ( F9)의 시작 부분에 중단 점을 설정하고 코드 ( F8)를 통해 단계. 범위가 큰 경우 rng.Copy 문에 다른 중단 점을 설정하고 실행 해 봅니다 ( F5). 정확히 런타임 오류가 발생하는 곳을 주시하십시오.