컴퓨터/엑셀
엑셀 VBA "파일이름 가져오기"
풍경소리^^
2017. 9. 16. 07:30
Dim rng As Range
For Each rng In Columns("A").SpecialCells(2, 1) 'A열 숫자만 선택
With rng
.Offset(, -21) = Mid(ThisWorkbook.Name, 5, 4) '파일이름에서 5번째문자부터4개가져오기
End With
Next rng