์์
์์ 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
: ๋งคํฌ๋ก ์คํ