Question

我对VBA很新，请告诉我这个问题/请求是否有意义。

我想将值从一个工作表复制/粘贴到另一个工作表，但在我这样做之前，我想检查我复制到的范围是否为空，如果它是空的我想要粘贴这些值。如果它不为空，我想再次偏移范围，然后检查新范围是否为空，依此类推，直到我可以粘贴数据。

这个目标是一个整合的工作表，记录前几天的数字。我真的不知道从哪里开始...我刚刚创建了一个布尔函数来检查范围是否为空以及执行数据移动的子程序，但正如您在下面看到它非常干燥而且我没有＆＃39我知道我是否朝着正确的方向前进。

Function RangeNotEmpty(rRange) As Boolean


If IsEmpty(rRange.Value) Then
   RangeNotEmpty = False
Else
   RangeNotEmpty = True
End If


End Function


Sub CopyNewData()

Dim rRange As Range
Dim Result As Boolean

Worksheets("Current Month Data").Activate
rRange = Range("D6:G82").Select

'Set rRange = Worksheets("Current Month Data").Range("D6:G82")

Result = True

While Result = True

    rRange = rRange.Offset(0, 5).Select
    Result = RangeNotEmpty(rRange)

Wend

End Sub

带偏移检查的VBA复制/粘贴

0 个答案: