0

我从 Excel 中 Sheet1 上的各个单元格中提取数据，并在每个指定时间段将值复制到 Sheet2 中一行的特定单元格中。我几乎完成了我的项目，但无法以相同的方式复制连接的数据。我如何将以下 excel 语句合并到我的代码中，以便将数据从 sheet1 复制到 sheet2 上？输出应进入 Sheet2 上的单元格 AB。

不要混淆问题，但代码以这种方式完成的原因是可以在工作表 1 上输入数据，该工作表将始终是屏幕上的活动工作表，但数据将定期保存到工作表 2。

Excel 语句我需要合并并输出到 sheet2 上的单元格“AB”：

=CONCATENATE(Sheet1!I9,", ",Sheet1!I10,", ",Sheet1!I11,", ",Sheet1!I12)

当前代码：

Option Explicit
Public dTime As Date

Sub ValueStore()

 Dim dTime As Date

Dim ws1 As Worksheet
Dim ws2 As Worksheet

Set ws1 = ActiveWorkbook.Worksheets("Sheet1")
Set ws2 = ActiveWorkbook.Worksheets("Sheet2")

Dim lRow As Long
    lRow = ws2.Range("A" & Rows.Count).End(xlUp).Row

With ws2
    Range("X1:X" & lRow).Offset(1).Value = ws1.Range("F15").Value
    Range("Y1:Y" & lRow).Offset(1).Value = ws1.Range("F14").Value
    Range("Z1:Z" & lRow).Offset(1).Value = ws1.Range("F17").Value
    Range("AA1:AA" & lRow).Offset(1).Value = ws1.Range("F16").Value

End With

    StartTimer1

End Sub


Sub StartTimer1()
    dTime = Now + TimeValue("00:00:05")
    Application.OnTime dTime, "ValueStore", Schedule:=True
End Sub

Sub StopTimer1()
    On Error Resume Next
    Application.OnTime dTime, "ValueStore", Schedule:=False
End Sub
4

1 回答 1

2

尝试这个：

Sub ValueStore()

    Dim dTime As Date, rw As Range

    Dim ws1 As Worksheet
    Dim ws2 As Worksheet

    Set ws1 = ActiveWorkbook.Worksheets("Sheet1")
    Set ws2 = ActiveWorkbook.Worksheets("Sheet2")

    'find the next empty row on ws2
    Set rw = ws2.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).EntireRow

    With rw
        ' note the .Range() here is *relative* to rw
        .Range("A1").Value = Now '<< ensure a value is placed in colA....
        .Range("X1").Value = ws1.Range("F15").Value
        .Range("Y1").Value = ws1.Range("F14").Value
        .Range("Z1").Value = ws1.Range("F17").Value
        .Range("AA1").Value = ws1.Range("F16").Value
        'method1 (contiguous vertical range)
        .Range("AB1").Value = Join(Application.Transpose(ws1.Range("I9:I12").Value), ", ")
        'method2 (join individual cells)
        .Range("AB1").Value = Join(Array(ws1.Range("I9"), ws1.Range("I10"), _
                                         ws1.Range("I11"), ws1.Range("I12")), ", ")

    End With

    StartTimer1

End Sub
于 2018-06-29T22:15:08.713 回答