์์
์์ Ctrl + F๋ฅผ ๋๋ฌ ์ฐพ๊ธฐ ๋ฐ ๋ฐ๊พธ๊ธฐ ๊ธฐ๋ฅ์ ์ฌ์ฉํ  ๋, ์ผ๋ฐ์ ์ผ๋ก ํ
์คํธ ๋ด์ฉ๋ง ๋ณ๊ฒฝ๋๊ณ  ๋ฉ๋ชจ(์ฃผ์)๋ ์๋์ผ๋ก ๋ณ๊ฒฝ๋์ง ์์ต๋๋ค. ํ์ง๋ง, ํน์  VBA ์ฝ๋๋ฅผ ํ์ฉํ๋ฉด ๋ฉ๋ชจ(์ฃผ์)๊น์ง ํฌํจํ์ฌ ๋ณ๊ฒฝํ  ์ ์์ต๋๋ค. ๐ ์ค๋์ ์์
์์ ๋ฉ๋ชจ(์ฃผ์)๊น์ง ํจ๊ป ๋ฐ๊พธ๋ ๋ฐฉ๋ฒ์ ๋จ๊ณ๋ณ๋ก ์์๋ณด๊ฒ ์ต๋๋ค.
๐ ์์
 ๊ธฐ๋ณธ ๋ฐ๊พธ๊ธฐ ๊ธฐ๋ฅ (Ctrl + H)
์์ ์์ "์ฐพ๊ธฐ ๋ฐ ๋ฐ๊พธ๊ธฐ" ๊ธฐ๋ฅ์ ์ด์ฉํ๋ฉด ์  ์์ ๊ฐ์ ์ฝ๊ฒ ๋ณ๊ฒฝํ ์ ์์ต๋๋ค.
๐ ๊ธฐ๋ณธ์ ์ธ ์ฌ์ฉ๋ฒ:
1๏ธโฃ Ctrl + H ๋ฅผ ๋๋ฌ ์ฐพ๊ธฐ ๋ฐ ๋ฐ๊พธ๊ธฐ ์ฐฝ์ ์ฝ๋๋ค.
2๏ธโฃ "์ฐพ์ ๋ด์ฉ"๊ณผ "๋ฐ๊ฟ ๋ด์ฉ"์ ์
๋ ฅํฉ๋๋ค.
3๏ธโฃ "๋ชจ๋ ๋ฐ๊พธ๊ธฐ" ๋๋ "๋ฐ๊พธ๊ธฐ"๋ฅผ ํด๋ฆญํ์ฌ ๋ณ๊ฒฝํฉ๋๋ค.
๐จ ํ์ง๋ง, ์ด ๋ฐฉ๋ฒ์ผ๋ก๋ ์
 ๊ฐ๋ง ๋ณ๊ฒฝ๋๊ณ  "๋ฉ๋ชจ(์ฃผ์)"๋ ๋ณ๊ฒฝ๋์ง ์์ต๋๋ค!
๐ ๋ฉ๋ชจ๊น์ง ๋ณ๊ฒฝํ๋ ค๋ฉด VBA(๋งคํฌ๋ก) ์ฝ๋๋ฅผ ์ฌ์ฉํด์ผ ํฉ๋๋ค.
๐ VBA๋ฅผ ํ์ฉํ์ฌ ๋ฉ๋ชจ(์ฃผ์)๊น์ง ๋ณ๊ฒฝํ๋ ๋ฐฉ๋ฒ
์์
์์๋ ๊ธฐ๋ณธ์ ์ผ๋ก ๋ฉ๋ชจ(์ฃผ์)๋ '๋ฐ๊พธ๊ธฐ' ๊ธฐ๋ฅ์ ํฌํจ๋์ง ์๊ธฐ ๋๋ฌธ์ VBA(๋งคํฌ๋ก)๋ฅผ ์ด์ฉํด์ผ ํฉ๋๋ค.
์๋ VBA ์ฝ๋๋ฅผ ์ฌ์ฉํ๋ฉด ์์
 ์ํฌ์ํธ์ ๋ชจ๋  ์
๊ณผ ๋ฉ๋ชจ(์ฃผ์)์์ ํน์  ํ
์คํธ๋ฅผ ์ฐพ์์ ๋ณ๊ฒฝํ  ์ ์์ต๋๋ค.
โ VBA ์ฝ๋ ์คํํ๊ธฐ
1๏ธโฃ ALT + F11 ์ ๋๋ฌ VBA ํธ์ง๊ธฐ๋ฅผ ์ฝ๋๋ค.
2๏ธโฃ ์ฝ์
 → ๋ชจ๋(Module)์ ์ ํํฉ๋๋ค.
3๏ธโฃ ์๋ ์ฝ๋๋ฅผ ๋ณต์ฌํ์ฌ ๋ถ์ฌ๋ฃ์ต๋๋ค.
Sub ReplaceTextAndComments()
    Dim ws As Worksheet
    Dim cell As Range
    Dim commentText As String
    Dim findText As String
    Dim replaceText As String
    ' ์ฐพ์ ํ
์คํธ ๋ฐ ๋ณ๊ฒฝํ  ํ
์คํธ ์ค์ 
    findText = "๋ณ๊ฒฝํ  ๋์"  ' ์ฌ๊ธฐ์ ๋ณ๊ฒฝํ  ๋จ์ด ์
๋ ฅ
    replaceText = "์๋ก์ด ๋ด์ฉ" ' ๋ฐ๊ฟ ๋จ์ด ์
๋ ฅ
    ' ํ์ฌ ํ์ฑํ๋ ์ํธ์์ ๊ฒ์
    Set ws = ActiveSheet
    ' ์
 ๋ด ๊ฐ ๋ณ๊ฒฝ
    For Each cell In ws.UsedRange
        If Not IsEmpty(cell.Value) Then
            cell.Value = Replace(cell.Value, findText, replaceText)
        End If
    Next cell
    ' ๋ฉ๋ชจ(์ฃผ์) ๋ด ํ
์คํธ ๋ณ๊ฒฝ
    For Each cell In ws.UsedRange
        If Not cell.Comment Is Nothing Then
            commentText = cell.Comment.Text
            If InStr(1, commentText, findText, vbTextCompare) > 0 Then
                cell.Comment.Text Text:=Replace(commentText, findText, replaceText)
            End If
        End If
    Next cell
    MsgBox "๋ฐ๊พธ๊ธฐ ์๋ฃ! ์
๊ณผ ๋ฉ๋ชจ์ ๋ด์ฉ์ด ๋ณ๊ฒฝ๋์์ต๋๋ค.", vbInformation
End Sub
โก VBA ์ฝ๋ ์คํ ๋ฐฉ๋ฒ
1๏ธโฃ ALT + F8 ์ ๋๋ฌ ๋งคํฌ๋ก ์ฐฝ์ ์ฝ๋๋ค.
2๏ธโฃ ReplaceTextAndComments๋ฅผ ์ ํํ๊ณ  ์คํ(โถ) ๋ฒํผ์ ํด๋ฆญํฉ๋๋ค.
3๏ธโฃ ์์
 ์ํฌ์ํธ์ ๋ชจ๋  ์
๊ณผ ๋ฉ๋ชจ(์ฃผ์)์์ ํ
์คํธ๊ฐ ์๋์ผ๋ก ๋ณ๊ฒฝ๋ฉ๋๋ค.
๐จ ์ฃผ์ํ  ์ :
โ VBA ์คํ ์ ์ ์์
 ํ์ผ์ ๋ฐฑ์
ํ์ธ์! (์๊ธฐ์น ์์ ๋ฐ์ดํฐ ์์ค ๋ฐฉ์ง๋ฅผ ์ํด)
โ ์ฝ๋์ "๋ณ๊ฒฝํ  ๋์"๊ณผ "์๋ก์ด ๋ด์ฉ" ๋ถ๋ถ์ ์ํ๋ ๋จ์ด๋ก ์์ ํ์ธ์.
๐ฏ ๋ง๋ฌด๋ฆฌ
์์
์์ ๊ธฐ๋ณธ์ ์ผ๋ก Ctrl + H๋ฅผ ์ด์ฉํ "์ฐพ๊ธฐ ๋ฐ ๋ฐ๊พธ๊ธฐ" ๊ธฐ๋ฅ์ ์
์ ๊ฐ๋ง ๋ณ๊ฒฝํ  ์ ์์ง๋ง, ๋ฉ๋ชจ(์ฃผ์)๋ ๋ณ๊ฒฝ๋์ง ์์ต๋๋ค.
ํ์ง๋ง VBA(๋งคํฌ๋ก) ์ฝ๋๋ฅผ ํ์ฉํ๋ฉด ๋ฉ๋ชจ(์ฃผ์)๊น์ง ํฌํจํ์ฌ ๋ณ๊ฒฝํ  ์ ์์ต๋๋ค! ๐ก
์ ๋ฐฉ๋ฒ์ ํ์ฉํ์ฌ ๋์ฑ ํจ์จ์ ์ผ๋ก ์์
ํด ๋ณด์ธ์. ๐
๐ ๊ด๋ จ ํ
Ctrl + H: ๊ธฐ๋ณธ์ ์ธ "์ฐพ๊ธฐ ๋ฐ ๋ฐ๊พธ๊ธฐ"ALT + F11: VBA ํธ์ง๊ธฐ ์ด๊ธฐALT + F8: ๋งคํฌ๋ก ์คํ