워크 시트 이름을 여러 시트의 행에 추가합니다.

Question

워크 시트에 100 개의 시트가 있고 모든 시트에서 반복하고 C 열의 셀이 null이 아닌 경우 해당 b 열에 워크 시트 이름을 인쇄한다고 가정 해 봅시다.

a | b | c 
123 | null | John 
345 | null | Arya 
678 | null | Sansa 

그리고 그것이 I이 루프 통합 문서의 모든 워크 각 시트의 범위에서 반복 할

a | b  | c 
123 | Sheet1 | John 
345 | Sheet1 | Arya 
678 | Sheet1 | Sansa 

로 변환되어야 할 :

원래 시트도 1은 표준이 아닙니다. 여기에 다양한 글을 읽기에 의해 생성 된 코드는하지만 작동하지 않습니다

Dim LastRow As Long 
Sub Correction() 
    Application.ScreenUpdating = False 
    Dim i As Long 
    Dim j As Integer 
    x = Sheets.Count 
    For j = x To 1 Step -1 
    LastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "C").End(xlUp).Row 
     For i = 2 To LastRow 
      ActiveSheet.Cells("B", i) = ActiveSheet.Name 
     Next i 
     Next j 
    Application.ScreenUpdating = True 
End Sub 

I 해요 초보자 ..

내가 보는 것과

Answer 1

Sub Correction() 

Application.ScreenUpdating = False 

Dim i, LastRow As Integer 
Dim Sht As Worksheet 

For Each Sht In ActiveWorkbook.Sheets 
    LastRow = Sht.Cells(Sht.Rows.Count, 3).End(xlUp).Row 
     For i = 2 To LastRow 
      Sht.Cells(i, 2) = Sht.Name 
     Next i 
Next Sht 

Application.ScreenUpdating = True 

End Sub 

Answer 2

,이 행의 xlDown 대신 xlUp해야한다 :

LastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "C").End(xlUp).Row 

xlUp은 VBA에 C 열의 맨 끝 (행 1)으로 이동하도록 지시합니다. 그런 다음 행 2에서 1로 반복합니다.

VBA를 오랫동안 사용하지 않았습니다.

희망이 도움이됩니다.

Answer 3

이 시도 :

Sub Correction() 
Dim i, j, lastRow As Long 
Application.ScreenUpdating = False 

For Each ws in Worksheets 
    With ws 
     lastRow = .UsedRange.Rows.Count 
     For i = 2 to lastRow 
      If .Cells(i,3) <> "null" Then .Cells(i,2) = ws.Name 
     Next 
    End With 
Next 
Application.ScreenUpdating = True 
End Sub