国产一区二区欧美精品免费-欧美国产日韩在线视频-欧美亚洲国语精品一区二区-欧美激情五月综合啪啪-国产69精品麻豆久久久久-亚洲人成精品久久久久桥网站-欧美刺激肥熟在线视频-十七岁日本免费完整版BD-黑夜在线拖拽不卡第一页

我錄制了一個(gè)宏如下：

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("原始數(shù)據(jù)").Select
    Rows("1691:1691").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Rows("1690:1690").Select
    Selection.Copy
    Sheets("計(jì)算 ").Select
    Rows("1:1").Select
    ActiveSheet.Paste
    Sheets("原始數(shù)據(jù) (2)").Select
    Rows("1691:1691").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
現(xiàn)在需要的是自動(dòng)調(diào)整1691和1690這兩個(gè)行往上遞減，即運(yùn)算1690和1689這兩個(gè)行，一直用這種遞減至第1行，請(qǐng)問怎么實(shí)現(xiàn)。