이 매크로를 사용하여 특정 데이터 범위의 변경 사항을 추적 할 수 있습니다.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B100")) Is Nothing Then
Call Master
End If
End Sub
노트 :
- 이 코드가 실행됩니다. 매크로 (마스터) 언제든지
범위에서 셀 값이 변경됩니다.
아래에 VBA 코드를 표준 모듈로 입력하십시오.
이 코드는 범위의 모든 새 값 / 변경 값을 복사합니다. A1:B100
새로운 장으로 MasterSheet
오래된 기록을 쓰지 않고.
Sub Master()
Dim sourceSheet As Worksheet
Dim sourceRange As Range
Dim sourceRows As Integer
Set sourceSheet = Worksheets("Sheet1")
sourceRows = WorksheetFunction.CountA(sourceSheet.Range("A:A"))
Set sourceRange = sourceSheet.Range("A1:B" & sourceRows)
Dim targetSheet As Worksheet
Dim targetRange As Range
Dim targetRows As Integer
Set targetSheet = Worksheets("MasterSheet")
targetRows = WorksheetFunction.CountA(targetSheet.Range("A:A"))
Set targetRange = targetSheet.Range("A" & targetRows + 1 & ":B" & targetRows + 1 + sourceRows)
sourceRange.Copy Destination:=targetRange
End Sub
노트 :
- 향상된 데이터 & amp; 파일 관리 저는 두 개의 MACRO를 사용했습니다.
- 매크로는
COUNTA
어떻게 행이 사용중인지 알 수 있습니다.
- 원본 시트와 마스터에 열 머리글이 있으면 복제됩니다. 그래서 당신은
sourceRange
~에서 시작하다 A2
.
필요에 따라 셀 참조와 시트 이름을 조정하십시오.