Sub abc()Set x = Application.InputBox("请选择一个单元格", Type:=8)MsgBox "这个单元格的值是" & x.ValueEnd Sub运行后，会弹出一个输入窗口，用鼠标选择一个单元格后按“确定”按钮，代码会继续执行。
1.在数据区域按ctrl+*选定整个数据区域，复制2.在一个空表A1点右键 选择性黏贴 转置 确定
