时间戳

首页 > 解决方案 > 未将单元格复制到下一个可用单元格

excel - 未将单元格复制到下一个可用单元格

问题描述

我正在尝试记录一个宏，该宏从 4 个单元格中复制值，然后将它们粘贴到另一张用作日志的工作表上。尽管在录制宏时使用了“相对引用”按钮，但我无法将值粘贴到新行中。我可以在下面的代码中添加一些东西以使值粘贴到下一个可用行吗？

'''
Sub Again()
'
' Again Macro
'

'
    Range("B5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Results").Select
    ActiveCell.Offset(0, -3).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Test").Select
    Range("C5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Results").Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Test").Select
    Range("D5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Results").Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Test").Select
    Range("E5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Results").Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
'''

标签： excelvba

解决方案

Sub add_value()

Dim wbA As Workbook
Dim wsA As Worksheet

Set wbA = ActiveWorkbook
Set wsA = wbA.Worksheets("Sheet1")

Dim nrow As Long

nrow = 6

    Do Until wsA.Range("B" & nrow).Value = ""
        wsA.Range("B" & nrow).Value = wsA.Range("B3").Value
        wsA.Range("C" & nrow).Value = wsA.Range("C3").Value
            Exit Sub
        nrow = nrow + 1
    Loop

End Sub

这实际上有效，现在我只需要弄清楚如何抵消它

推荐阅读