试图更改列中下一个空单元格的值

Question

我对VBA有所了解，但经验不足。感觉应该很简单，但我想不出什么来挽救生命。大声笑。我要做的就是将值输入到列中的下一个空行中。我尝试使用rows.count并像设置粘贴一样将其设置为关闭，但似乎不起作用。我能够获取它来更改第一个单元格中的值，但无法查找下一个空单元并更改其值。任何帮助将不胜感激。

Private Sub CommandButton1_Click()
   Dim wbCount As Workbook
   Set wbEntry = ThisWorkbook


   wbEntry.ActiveSheet.Range("B3").Copy

   Set wbCount = Workbooks.Open("U:\MO# Count.xlsm")

   Worksheets("Golf Cart").Paste _
       Destination:=Worksheets("Golf Cart").Range("V5")


   Worksheets("Golf Cart").Range("C2").Value = 1

   wbEntry.Activate

   Application.CutCopyMode = False

   wbEntry.ActiveSheet.Range("O1").Select

End Sub

除了没有在“ C”中搜索下一个空单元格并将其值更改为“ 1”之外，我所拥有的全部工作正常。

Answer 1

我很困惑，为什么您会认为它搜索一个空单元格？

此行暂时不涉及宏的其余部分：

Worksheets("Golf Cart").Range("C2").Value = 1

不搜索空单元格，它只是将“ 1”写入单元格C2。如果您希望它在C列中找到第一个空单元格，然后在其中写入1，那么应该可以做到这一点：

Worksheets("Golf Cart").Cells(Sheets("Golf Cart").Cells(Rows.Count, 3).End(xlUp).Row + 1, 3) = 1

我不确定您想要的是什么，请澄清。这将在C列中找到最后使用的行，然后向下移至下一行以在其中写入“ 1”。如果要在否则为值填充的列中查找空单元格，则此方法不起作用。但是您写了一些关于rows.count之类的东西，所以我认为我会这样发布吗？