VBAfan
VBAfan
采纳率0%
2016-08-20 10:59

VBA如何将多行不连续数据转置粘贴

请问有办法将下列操作一步完成么
Excel提示行列转置粘贴无法适用于不连续范围.

Option Explicit
Sub copppy()
Dim rowsnum As Long

rowsnum = Selection.Row

Range("B5:W5, B" & rowsnum & ":W" & rowsnum).Select

Selection.Copy

Range("A15").Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 复制链接分享
  • 邀请回答

2条回答

为你推荐