利用宏完成excel表内数据脱敏

好久没有更新了，忙忙碌碌没有记录感觉过去什么都没干。今天遇到一个数据脱敏的问题，对于一个excel文件内数据进行脱敏有一个更简单的方法不用打开别的代码编辑页面。记录如下。

目标：将excel文件中文本替换为和原内容等长的值’X‘

处理大量单元格或希望自动化这个过程，可以使用 VBA 宏。

Sub ReplaceWithEqualLengthChar()
    Dim cell As Range
    Dim charToRepeat As String
    Dim repeatCount As Integer
    
    charToRepeat = "X"
    
    For Each cell In Selection
        repeatCount = Len(cell.Value)
        cell.Value = WorksheetFunction.Rept(charToRepeat, repeatCount)
    Next cell
End Sub

按照以下步骤操作：

1. 按 Alt + F11 打开 VBA 编辑器。

2. 在 VBA 编辑器中，选择 Insert -> Module 插入一个新模块。

3. 将上述代码粘贴到模块中。

4. 关闭 VBA 编辑器，返回 Excel。

5. 选择你想要替换内容的单元格。

6. 按 Alt + F8 打开宏对话框，选择 ReplaceWithEqualLengthChar，然后点击 Run。

还没想好apple要选谁。我希望30号最后一抽能抽到我没有的明信片。呜呜呜。