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

将单元格值插入指定的单元格

1 个答案: