我录制了一个宏如下：

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行，请问怎么实现。

楼主，你最好弄个文档上来，并举个例子，大家才容易理解如何处理

回复：楼主

操作步骤：

1、复制“计算”"B1：AH1"转置粘贴数值到"AL3：AL35".

2、删除“原始数据”1690行，复制“原始数据”1689行粘贴至“计算”第一行，

3、复制“原始数据（2）”1690行只粘贴数值至1690行，

4、重复步骤1，步骤2删除“原始数据”1689行，复制“原始数据”1688行粘贴至“计算”第一行，步骤3复制“原始数据（2）”1689行只粘贴数值至1689行，依次类推，直到“原始数据”删除至第一行，“原始数据（2）保存至第一行。求哪位大神帮帮忙。