
-
积分:2
-
财富值:-1.0
-
身份:普通用户
我录制了一个宏如下:
Sub q()
'
' q Macro
'
' 快捷键: Ctrl+q
'
Range("B1:AH1").Select
Selection.Copy
Range("AL3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("原始数据").Select
Rows("1691:1691").Select
Application.CutCopyMode = False
Selection.ClearContents
Rows("1690:1690").Select
Selection.Copy
Sheets("计算 ").Select
Rows("1:1").Select
ActiveSheet.Paste
Sheets("原始数据 (2)").Select
Rows("1691:1691").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
现在需要的是自动调整1691和1690这两个行往上递减,即运算1690和1689这两个行,一直用这种递减至第1行,请问怎么实现。

-
积分:2
-
财富值:-1
-
身份:普通用户
操作步骤:
1、复制“计算”"B1:AH1"转置粘贴数值到"AL3:AL35".
2、删除“原始数据”1690行,复制“原始数据”1689行粘贴至“计算”第一行,
3、复制“原始数据(2)”1690行只粘贴数值至1690行,
4、重复步骤1,步骤2删除“原始数据”1689行,复制“原始数据”1688行粘贴至“计算”第一行,步骤3复制“原始数据(2)”1689行只粘贴数值至1689行,依次类推,直到“原始数据”删除至第一行,“原始数据(2)保存至第一行。求哪位大神帮帮忙。