我想让这段代码为两个变量工作，它只复制单元格A1在B列的数据，我想让它记录单元格C1在D列的数据

Question

在"ThisWorkbook"模块中粘贴:

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
     'Stop execution when workbook closes
    On Error Resume Next 
    Application.OnTime Heure, "Calcul", , False 
End Sub 
Private Sub Workbook_Open() 
     'start execution when workbook opens
    Application.OnTime Now + TimeValue("00:01:00"), "Calcul" 

在模块中，粘贴:

Public Heure As Date 
Sub Calcul() 
    Heure = Now + TimeValue("00:01:00") 
    Application.OnTime Heure, "Calcul" 
    Range("B65536").End(xlUp).Offset(1) = [A1] 
End Sub 

我想让这个代码为两个变量工作，它只复制单元格A1在B列的数据，我想要它记录单元格C1在D列的数据，以及?

Answer 1

将最后一行改为:

With [B65536].End(xlUp)(2)
    .Item(1, 1) = [A1]
    .Item(1, 3) = [C1]
End With

Answer 2

尝试如下:

将Range("B65536").End(xlUp).Offset(1) = [A1]替换为:

With Range("B65536").End(xlUp).Offset(1)
   .Value = [A1]
   .Offset(0,3).Value = [C1]
End With