excel - 在 sheet2 上生成公式以显示 sheet1 中的非空行数据

Question

我从 SQL 复制数据并将其粘贴到 sheet1 中。每次我们获取数据时，行数都会发生变化。

我需要在 sheet2 上显示来自 sheet1 特定列的信息。

从第 2 行开始，Sheet2 应如下所示:

    Column A =VALUE('Sheet1'!AK2)
    Column B =VALUE('Sheet1'!G2)
    Column C =VALUE('Sheet1'!F2)
    Column D =VALUE('Sheet1'!Q2)
    Column E =VALUE('Sheet1'!R2)
    Column F =VALUE('Sheet1'!S2)
    Column G =VALUE('Sheet1'!T2)
    Column H =VALUE('Sheet1'!U2)

随着每一行的增加(AK3、AK4 等)，直到显示 sheet1 中的所有行。我不能让它在最后显示空行。这就是为什么我需要 VBA 来为我输入公式。

Answer 1

尝试，

Option Explicit

Sub Macro10()
    Dim arr As Variant, i As Long, lr As Long

    arr = Array(37, 7, 6, 17, 18, 19, 20, 21)

    With Worksheets("sheet2")
        For i = 1 To 8
            lr = Worksheets("sheet1").Cells(.Rows.Count, arr(i - 1)).End(xlUp).Row
            lr = application.max(lr, 2)
            .Range(.Cells(2, i), .Cells(lr, i)).Formula = _
                "=value(" & Worksheets("sheet1").Cells(2, arr(i - 1)).Address(0, 0, external:=True) & ")"
        Next i
    End With

End Sub