怎样列出指定位置字母的26种替换结果？

AACC88 · 发表于 2021-9-26 01:40

本帖最后由 AACC88 于 2021-9-26 19:25 编辑

如附件“列出指定置字母的26种替换结果”有A、B、C、D四列，D列的数据为4个小写字母。B列的符号◇对应D列数据的第3个字母，C列的符号◇对应D列数据的第4个字母。
当符号◇对应的字母变换成其他字母时，怎样自动列出26种替换结果。
附件“列出第二个字母的26种替换结果”是zhz3230网友写的替换第二个字母的公式，仅供参考。

样本.rar (166.8 KB, 下载次数: 9)

liulang0808 · 发表于 2021-9-26 07:42

建议楼主结合附件内容实例说明下具体实现步骤以及对应的结果

AACC88 · 发表于 2021-9-26 08:33

不知道下面的内容是否可以参考：
https://club.excelhome.net/thread-971333-2-1.html

yjh_27 · 发表于 2021-9-26 08:37

Sub aa()
r = Range("a" & Rows.Count).End(xlUp).Row
arr = Range("a1:d" & r)
ReDim srr(1 To UBound(arr), 1 To 26)
For i = 1 To UBound(arr)
For j = 1 To 26
srr(i, j) = arr(i, 4)
Next
If arr(i, 2) = "◇" Then
For j = 1 To 26
Mid(srr(i, j), 3, 1) = Chr(96 + j)
Next
End If
If arr(i, 3) = "◇" Then
For j = 1 To 26
Mid(srr(i, j), 4, 1) = Chr(96 + j)
Next
End If
Next
Range("e1").Resize(UBound(srr), 26) = srr
End Sub

复制代码

yjh_27 · 发表于 2021-9-26 11:48

AACC88 发表于 2021-9-26 08:33
不知道下面的内容是否可以参考：
https://club.excelhome.net/thread-971333-2-1.html

B列的符号◇对应D列数据的第3个字母，B列的符号◇对应D列数据的第4个字母。

审核太慢了

AACC88 · 发表于 2021-9-26 19:21

本帖最后由 AACC88 于 2021-9-26 19:25 编辑

对不起，应为：B列的符号◇对应D列数据的第3个字母，C列的符号◇对应D列数据的第4个字母。
新的样本中是我想要的结果。但我删除新生成的数据，重新运行宏时中断。

AACC88 · 发表于 2021-9-26 20:25

我的步骤不知道是否正确：
视图→宏→查看宏→aa→单步执行
黄色箭头指向第一行：Sub aa()
信息：在中断模式不能执行程序代码
该命令将终止调试器

yjh_27 · 发表于 2021-9-27 19:49

AACC88 发表于 2021-9-26 19:21
对不起，应为：B列的符号◇对应D列数据的第3个字母，C列的符号◇对应D列数据的第4个字母。
新的样本中是我 ...

是5L的附件吗？

5L的附件
删除新生成的数据，重新运行宏时正常

AACC88 · 发表于 2021-9-27 22:42

估计是我的系统有问题。
转换2.png

AACC88 · 发表于 2021-9-27 23:02

现在开发工具→宏→执行可以运行。
谢谢。

		自动登录	找回密码
密码			免费注册

[求助] 怎样列出指定位置字母的26种替换结果？

评分

评分

评分

最新热点 /1