请高手帮忙：求一段excel vba 宏代码

2024-11-08 08:50:51

推荐回答（2个）

回答1：

Sub abc()
Set x = Application.InputBox("请选择一个单元格", Type:=8)
MsgBox "这个单元格的值是" & x.Value
End Sub
运行后，会弹出一个输入窗口，用鼠标选择一个单元格后按“确定”按钮，代码会继续执行。

回答2：

1.在数据区域按ctrl+*选定整个数据区域，复制
2.在一个空表A1点右键选择性黏贴转置确定