好久没有更新了,忙忙碌碌没有记录感觉过去什么都没干。今天遇到一个数据脱敏的问题,对于一个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
按照以下步骤操作:
-
按
Alt + F11
打开 VBA 编辑器。 -
在 VBA 编辑器中,选择
Insert
->Module
插入一个新模块。 -
将上述代码粘贴到模块中。
-
关闭 VBA 编辑器,返回 Excel。
-
选择你想要替换内容的单元格。
-
按
Alt + F8
打开宏对话框,选择ReplaceWithEqualLengthChar
,然后点击Run
。
还没想好apple要选谁。我希望30号最后一抽能抽到我没有的明信片。呜呜呜。