EXCEL怎么用宏实现转置多行多列

试试这个，运行宏之前先选中你要转换的区域。还有问题随时找我~vbscriptSub Transmit()If Selection.Count 2 Then Exit SubSet c = Application.InputBox(请选择目标区域的第一个单元格, Type:=8)i = 0Set c = IIf(c.Count = 1, c, c(1, 1))For Each cel In Selection c.Offset(0, i) = cel i = i + 1NextIf MsgBox(清除原内容吗？, vbYesNo) = vbYes Then Selection.ClearContentsEnd Sub