0

我是这个论坛的新手，刚开始学习编程。我有一个问题，希望对其他人也有用。我将数据保存在两列和 30 行中，以底部每列的总和结尾。

我想做的是创建一个 VB 程序来保存 Sum，将该值移动到新行，然后清除所有以前的数据，以便可以重新输入并再次保存在新位置。

该程序将用于跟踪存储罐的蒸汽排放量，每月一次，当每个月输入数据时，我希望它可以特定于该月保存，然后清除并准备将数据输入到下个月。感谢您提供的任何帮助或想法。

这是我到目前为止提出的代码，

Sub Macro4()
    Range("F15").Select
    ActiveWindow.SmallScroll Down:=15
    Range("C30:D30").Select
    Selection.Copy
    Range("C33").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("C33").Select
End Sub

Sub Button2_Click()
    ActiveWindow.SmallScroll Down:=18
    Range("C30:D30").Select
    Selection.Copy
    Range("C33").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C28:D29").Select
    Range("D29").Activate
    Application.CutCopyMode = False
    Range("C2:D29").Select
    Range("D29").Activate
    Selection.ClearContents
End Sub
4

1 回答 1

0

像这样的东西应该可以工作（调整范围以适应）

Sub Button2_Click()
    Dim rngDest as Range

    With ActiveSheet
       'find next empty row
        Set rngDest= .cells(rows.count,3).end(xlup).offset(1,0)

        'copy values
        rngDest.resize(1,2).value= .Range("C30:D30").Value    

        'clear input range
         .Range("C28:D29").ClearContents
    End With
End Sub
于 2013-07-01T16:54:49.573 回答