软件下载 | 资讯教程 | 最近更新 | 下载排行 | 一键转帖 | 发布投稿
您的位置:最火下载站 > 电脑教程 > 办公软件 > Excel教程 > EXCEL倒置宏 覆盖原单元格转置内容

EXCEL倒置宏 覆盖原单元格转置内容

问题:

Sub Macro3()
'
' Macro3 Macro
'

'

Selection.Copy
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

Application.CutCopyMode = False
Selection.Copy
Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
这个宏只改转置数据,而第二次转置就覆盖原单元格转置内容,求高手帮忙改下,第二次转置接着第一次转置的单元格排列,第三次接第二次。。。。共630行。

回答:

如果每次转置6个数据(即转置后A列之间无空行),可用下面代码。如果数据不足6个,可适当改变代码中的n值(即把“+1”改成“+2”或 +其他数值)
Sub Macro3()
n = WorksheetFunction.CountA(Range("a:a")) + 1
Selection.Copy
Cells(n, 1).Select
'Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

Application.CutCopyMode = False
Selection.Copy
Cells(n + 6, 1).Select
'Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub

如果你想一次把630行都自动转换,可以在代码中加入循环,可以帮你做一个。

    相关阅读
    栏目导航
    推荐软件