[已解决]求助两个vba

wingotoo

求助两个vba代码，功能如下
第一个：
运行宏后，弹出一个框框，里面可以提示让我输入一个字母，比如我输入D
然后程序运行选择D列删除并将D列选中
（如果我输入A则是把A列删除并将A列选中）


第二个：
运行宏后，将选中的单元格复制到剪切板，然后可以去别的地方粘贴

最佳答案

月排行榜 / 总排行榜

su45

2014-7-31 00:05

1. Sub suaa()  '删除列
   
2. lb = InputBox("请输入要删除的列标：")
   
3. If lb = "" Then End
   
4. Columns(lb).Delete
   
5. Columns(lb).Select
   
6. End Sub
   

复制代码

复制就用：Range("单元格").Copy

跳转到最佳答案楼层

su45

1. Sub suaa()  '删除列
   
2. lb = InputBox("请输入要删除的列标：")
   
3. If lb = "" Then End
   
4. Columns(lb).Delete
   
5. Columns(lb).Select
   
6. End Sub
   

复制代码

复制就用：Range("单元格").Copy