使用範圍（單元格（），單元格（））設置單元格內容的變量Excel VBA

Question

感謝您閱讀本文。這是我的問題：我有一張表格上的課程列表，我將它們用作參考，以計算一年內這些課程將出現多少次。但是我無法一次性設置我的變量來獲得這些課程之一。這裏的代碼：

lr = ws.Cells(1, 1).End(xlDown).Row 

ReDim x(lr - 1) 
For i = 1 To (lr - 1) 
    k = ws.Range(Cells(1 + i, 1), Cells(1 + i, 1)).Text 
     For Each sheets In wb.sheets 
      With sheets.Range("A1:J86") 
       Set rng = .Find(k, sheets.Cells(1), xlValues, xlWhole, xlByRows, xlPrevious, False) 
        If Not rng Is Nothing Then 
         v = v + 1 
        End If 
      End With 
     Next sheets 
    x(i) = (v - 1) 
    v = 0 
Next 

感謝您的時間。

Answer 1

你不需要Range(Cells(), Cells())只有一個單元：

k = ws.Cells(1 + i, 1).Text 

就足夠了。