☰

VB 스크립트를 자동화하는 방법

tag-icon • tag-icon microsoft-excel worksheet-function vba vbscript
VB 스크립트를 자동화하는 방법

나는 이 코드를 가지고 있습니다 :

Sub NewYearData()
    Dim wb1 As Workbook, wb2 As Workbook
    Dim r1 As Range, r2 As Range
    Dim addy As String, sh As Worksheet
    Dim shName As String
    
    Set wb1 = Workbooks("PreviousYear.xlsm")
    Set wb2 = Workbooks("CurrentYear2.xlsx")
    addy = "C16:AH18"
    
    For Each sh In wb1.Sheets
        shName = sh.Name
        Set r1 = sh.Range(addy)
        Set r2 = wb2.Sheets(shName).Range(addy)
        r1.Copy r2
    Next sh
    
End Sub

복사해야 할 셀의 고정 위치는 다음과 같습니다. 일부 시트에서는 위치가 다르기 때문에 다음과 같은 외부 파일 및 시트에 대한 참조가 있는 모든 셀을 찾아야 합니다. 'D:\Data\[Data_1990-2019.xlsx]Set01'!D105

질문: 참조가 포함된 모든 셀을 찾고 이러한 셀만 새 파일에 복사하는 방법은 무엇입니까?

답변1

다음 코드는 기사에서 복사되었습니다.
Excel에서 모든 링크(외부 참조)를 찾고 나열하는 방법은 무엇입니까?

For Each xSheet In Worksheets
    Set xRg = xSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
    If xRg Is Nothing Then GoTo LblNext
    For Each xCell In xRg
        If InStr(1, xCell.Formula, "[") > 0 Then
            ...
       End If
    Next
LblNext:

InStr위의 호출을 필요에 맞게 조정할 수 있습니다 .

관련 정보