Excel：创建一个宏以将活动选择复制并粘贴到另一个工作表中

卡琳娜·K。

这是我在这里的第一个问题，请保持友好。

免责声明：我对Excel中的宏构建也很陌生，因此如果需要澄清，请不要感到沮丧。

我开始制作一个项目跟踪器，遇到了以下问题：我想要一个按钮，该按钮可以让我在一个工作表上复制一个活动的选择（单个单元格或一行）并将其粘贴到一个工作表中工作簿。

我本质上想做的就是可以选择一个特定的任务，单击该按钮，然后将其复制/粘贴到另一个工作表中。因此，据我所知，代码需要是一个循环（？），并且还需要偏移，以便我可以粘贴多个任务，并且它们不会相互覆盖。

我现在设法整理的代码在行上给了我运行时错误1004 Activecell.Offset，我不知道为什么。

Sub MoveToWeekly()
Sheets("Test1").Select
    Selection.Copy

    Sheets("Test2").Select

    Sheets("Test2").Range("A1:A4").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1).Select
    
    

    Selection.PasteSpecial _
        Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub

我会很高兴获得一些帮助，对于我没有那么具体，我感到抱歉。

蒂姆·威廉姆斯

这是一种方法

Sub MoveToWeekly()

    'make sure a range is selected
    If typeName(selection)<>"Range" Then
         Msgbox "First select a range"
         Exit sub
    End If

    'you can assign the value between the two ranges directly, without copy/paste
    'Note: assumes there's always a value in ColA on the destination sheet
    with Selection
        'Starting at the bottom of the sheet and using xlUp is 
        '    typically safer than using xlDown
        Sheets("Test2").Cells(rows.count,1).end(xlup).offset(1,0) _ 
              .resize(.rows.count, .columns.count).value = .value
    End with

End Sub

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。