excel - 将单元格值插入指定单元格

Question

我是 Excel VBA 的完整初学者。我正在尝试制作一个日程跟踪器，它在“课程”工作表上包含所有正在运行的课程的教学信息。

E 列使用公式来标识交叉引用工作人员和课程日期的单元格。

K 列包含我需要插入到“日历”工作表（同一工作簿）上正确位置的 concat（文本和数字数据）语句。

我到目前为止的代码如下所示：

Private Sub BtnUpdate_Click()

Dim w As Variant
Dim c As Variant
Dim i As Integer
Dim n As Integer

'Application.ScreenUpdating = False
i = 1
w = Sheets("Courses").Range("E" & i).Value
c = Sheets("Courses").Range("K" & i).Value

Do
Sheets("Calendar").Range(w).Select
ActiveCell.Value = c.Value
Loop While n <> Range("E2").End(xlDown).Row
'Application.ScreenUpdating = True

End Sub

任何指导将不胜感激。

Answer 1

不太清楚..但你可以试试这个..

Private Sub BtnUpdate_Click()

Dim w As Variant
Dim c As Variant
Dim i, n As Integer
Dim r as Range

Set r = Range("E65536").End(xlup)

'Application.ScreenUpdating = False

For i = 1 to r.Row
  w = Sheets("Courses").Range("E" & i).Value
  c = Sheets("Courses").Range("K" & i).Value

  Sheets("Calendar").Range(w).Select
  ActiveCell.Value = c.Value

  'Application.ScreenUpdating = True

Next    
End Sub