如果空白，则将值复制并粘贴到另一个单元格

Question

我对宏还很陌生，正在尝试将其用于我们的日常生产sheet。我创建了一个宏来将值 sheet1 复制到 sheet2.

Range("B3").Select
Selection.Copy
Sheets("sheet2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True

我需要的是，如果 sheet2 单元格 A1 不为空，则粘贴值需要在 A2 范围内。

希望我解释的好

Answer 1

只要检查A1的值是否为空vbNullString.

' define worksheets
Dim wsSrc As Worksheet
Set wsSrc = ThisWorkbook.Worksheets("sheet1")

Dim wsDest As Worksheet
Set wsDest = ThisWorkbook.Worksheets("sheet2")

If wsDest.Range("A1").Value = vbNullString Then
    ' If A1 is empty copy value to A1
    wsDest.Range("A1").Value = wsSrc.Range("B3").Value
Else
    ' otherwise copy it to A2
    wsDest.Range("A2").Value = wsSrc.Range("B3").Value
End If

您可能会从阅读中受益 How to avoid using Select in Excel VBA.

如果空白，则将值复制并粘贴到另一个单元格

Copy and paste value to another cell if blank

excel

vba