Sub test()

'1)통합문서
'2)시트
'3)범위
Dim WB As Workbook
Dim WS As Worksheet
Dim RNG As Range

Set WB = ThisWorkbook
Set WS = WB.Worksheets("1월매출")
Set RNG = WS.Range("c5")
MsgBox RNG.Value

 

End Sub

 

Sub createtoc()
'변수 선언
Dim WB As Workbook
Dim WS As Worksheet
Dim I As Long

Set WB = ThisWorkbook
Set WS = WB.Worksheets("목차")

For I = 1 To WB.Worksheets.Count
'1) C★셀->시트 이름
WS.Range("c" & I).Value = WB.Worksheets(I).Name '첫번째시트부터 여덟번째 시트까지의 이름 출력
'Anchor=링크를 추가할 셀
'Address=웹페이지주소 or 파일경로
'SubaAddress=[선택인수]내부 시트로 이동할 때 주소
'시트이름!A1
'2)C★셀->링크, 대상 목표셀 : 시트명!A1
WS.Hyperlinks.Add WS.Range("C" & I), "", WB.Worksheets(I).Name & "!A1"


Next

End Sub

 

Sub findreplace()

'변수 선언
Dim WS As Worksheet
Dim FindValue As String
Dim ReplaceValue As String
Dim RNG As Range
Dim R As Range

Set WS = ThisWorkbook.Worksheets("확진자경로") '현재시트에서 확진자 경로라는 이름을 가진 시트를 볼 겁니다.
FindValue = WS.Range("j4").Value
ReplaceValue = WS.Range("j5")

Set RNG = Selection '우리가 선택한 범위

For Each R In RNG '그 범위의 셀들을 하나씩 살펴봄
If R.Value = FindValue Then R.Value = ReplaceValue
'셀의 값이 찾으려는 값과 같으면 replacevalue로 바꿔줌
Next

 

End Sub