Excel VBA：替换范围（＆＃39;单元格）。使用If语句选择

Question

我正在使用Excel Visual Basic for Applications（VBA）

我有一个宏，它正在选择一组单元格，剪切它们并将它们粘贴到用户选择的另一个工作表中的已定义单元格中。但是，我需要在用户选择的电子表格中查找空行（表示为0），因为数据可能已经存在于粘贴的位置。

我的代码：

Sub Button11_Click()
'
' Button11_Click Macro
'

'
    Range("A2:K2").Select
    Selection.Cut
    Sheets(Application.InputBox("Type desired Team")).Select
    Range("B4").Select
    Sheets("ImporterSheet").Select
End Sub

基本上，

Range(B4).Select

需要替换为

Range(If ActiveCell <> 0 then ActiveCell.Offset(1,0). If ActiveCell = 0 then paste data here)

Answer 1

试试这个：

Range(Range("B:B").Find(0, [B1]).Address).Select

它在0中选择其中包含Column B的第一个单元格 这是你需要的吗？

顺便说一句，尝试浏览THIS，这绝对是改善编码的好方法。