์นดํ…Œ๊ณ ๋ฆฌ ์—†์Œ

์—‘์…€์—์„œ '์ฐพ๊ธฐ ๋ฐ ๋ฐ”๊พธ๊ธฐ' ๊ธฐ๋Šฅ์„ ์ด์šฉํ•ด ๋ฉ”๋ชจ๊นŒ์ง€ ๋ณ€๊ฒฝํ•˜๋Š” ๋ฐฉ๋ฒ•

f4๐Ÿ’– 2025. 3. 12. 17:10

์—‘์…€์—์„œ 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 : ๋งคํฌ๋กœ ์‹คํ–‰