[已解决]VBA数组选择单元格字符合并到选区

laoau138

VBA数组选择单元格字符合并到选区

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-10 16:15

参考我发布的以下主题：
http://www.excelpx.com/thread-325628-1-1.html

1. Sub aaa()
   
2. Dim b&
   
3. b = MsgBox("请确认字符增加在前面还是后面。Yes=前，No=后", vbYesNo)
   
4. If b = 7 Then
   
5.   Selection = Evaluate(Selection.Address & "&""D""")
   
6. Else
   
7.   Selection = Evaluate("""D""&" & Selection.Address)
   
8. End If
   
9. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

参考我发布的以下主题：
http://www.excelpx.com/thread-325628-1-1.html

1. Sub aaa()
   
2. Dim b&
   
3. b = MsgBox("请确认字符增加在前面还是后面。Yes=前，No=后", vbYesNo)
   
4. If b = 7 Then
   
5.   Selection = Evaluate(Selection.Address & "&""D""")
   
6. Else
   
7.   Selection = Evaluate("""D""&" & Selection.Address)
   
8. End If
   
9. End Sub

复制代码