楼主想要单独的把单元格里面的两个字符隐藏,这个好像是没法实现。目前倒是想到一个办法,那就是使用星号(*)把原来的字符替换。
(一)VBA程序代码如下:(程序运行前应当做好数据备份,以免丢失)
Sub Replace_2_6()
Dim i1, i2, str1
On Error Resume Next
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")
For i1 = 2 To 1000 '从第2行到1000行
If mysheet1.Cells(i1, 1) <> "" Then '如果单元格不是空白,则
For i2 = 2 To 6 Step 4 '替换第2、6个字符
mysheet1.Cells(i1, 1) = _
WorksheetFunction.Replace(mysheet1.Cells(i1, 1), i2, 1, "*") '替换成星号
Next
End If
Next
End Sub
![](https://video.ask-data.xyz/img.php?b=https://iknow-pic.cdn.bcebos.com/6f061d950a7b0208c6615d876cd9f2d3572cc828?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto)
(二)VBA程序运行之后的结果如下:
![](https://video.ask-data.xyz/img.php?b=https://iknow-pic.cdn.bcebos.com/267f9e2f07082838ab1bbe72b699a9014c08f146?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto)
![](https://video.ask-data.xyz/img.php?b=https://iknow-pic.cdn.bcebos.com/342ac65c1038534307d7ea479d13b07eca8088b8?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto)