小编xxS*_*exx的帖子

我知道这个问题至少被问过十几次了，但在所有这些问题中，解决方案似乎都是量身定制的，或者只是在我的代码中创建了一个错误。由于某种原因，当我尝试引用不同工作表中的范围时出现错误。下面是我的代码。我有两个工作表（选项卡）。一个有一个按钮来启动我的代码MENU，另一个是我试图读取和写入的数据RAW。我想做的就是找出工作表有多少行数据，以便我可以循环遍历这些行并进行更改。由于某种原因，我无法理解它或其他什么。

Private Sub CommandButton21_Click()
  Dim wbCurrent As Workbook
  Dim wsCurrent As Worksheet

  Set wbCurrent = ThisWorkbook
  Set wsCurrent = wbCurrent.Worksheets("RAW")

  Dim i As Long
  Dim siteCol As Long

  siteCol = Range("I" & Rows.Count).End(xlUp).Row
  For i = 1 To siteCol
    wsCurrent.Range("I" & i) = "MARKED"
  Next i
  Range("I1") = siteCol
End Sub