如何自动代替，然后再恢复回去

-z-

替代及复原问题2.rar (5.96 KB, 下载次数: 3)

2018-8-14 15:30 上传

点击文件名下载附件
替代及复原

如附件，我想实现：用光标选择A2到A5的区域，然后按按钮，A2到A5的区域就会：aff用张三代替，333ee用李四代替，e43用王二代替，55tw354用大麻子代替。再按按钮，A2到A5又恢复到未替换时的状态。
如何实现呢？要用动态数组吗？不会呀。

一把小刀闯天下

Option Explicit

Dim brr, flag As Boolean

Sub test()
  Dim arr, i
  arr = [a2].CurrentRegion
  If flag Then
    arr = brr
  Else
    brr = arr
    For i = 1 To UBound(arr, 1): arr(i, 1) = arr(i, 2): Next
  End If
  flag = Not flag
  [a2].Resize(UBound(arr, 1)) = arr
End Sub

jiminyanyan

恢复前的数据找个地方储存起来，然后循环判断。。

约定的童话

你这种要求在哪里应用啊？想学习下

jiminyanyan

一把小刀闯天下 发表于 2018-8-12 15:38
Option Explicit

Dim brr, flag As Boolean

这有个小问题，运行一次，EXCCEL关了，再打开，再运行，就回不去了。。。

一把小刀闯天下

jiminyanyan 发表于 2018-8-12 16:05
这有个小问题，运行一次，EXCCEL关了，再打开，再运行，就回不去了。。。

可以变通一下，写入一个文件，第一行写入标志位，，，

楼主没要求就瞎掰了一个，他也没冒泡更没小花，看来不能再给他掰了，哈哈哈

-z-

有误，有误，我上传的附件有误，应该这里的附件如附件，我想实现：用光标选择A2到A5的区域，然后按按钮，A2到A5的区域就会：aff用张三代替，333ee用李四代替，e43用王二代替，55tw354用大麻子代替。再按按钮，A2到A5又恢复到未替换时的状态。
如何实现呢？要用动态数组吗？不会呀。