Vba 宏列出多张图纸中的单元格值

我需要一个宏来列出多张图纸中的单元格值

在每张工作表上，“A7”是客户名称，“J65”是到期或欠款的美元金额。 （“J65”）有一个公式：=SUM（J35-H62），这是我有限的写作技能得出的结果

我需要一张空白纸上的快速列表：

A列
唐璜

B列
5200.67美元

我有一个代码，将把我的表的数量顺序（“J65”），从最小到最大，我需要它列出的顺序。（“A7”）客户端名称，如果有帮助，也是工作表的名称。 谢谢

试试这个：

Sub Create_Report()

Dim table()
Dim data_range As Range
Dim firstcell As Range
Dim lastcell As Range
Dim i As Long
Dim msg As String

    If Not Worksheets("Report") Is Nothing Then
        Worksheets("Report").Delete
    End If

ReDim table(0 To Worksheets.Count - 1, 0 To 1)

    For i = 1 To UBound(table, 1) + 1
        table(i - 1, 0) = Worksheets(i).Range("A7")
        table(i - 1, 1) = Worksheets(i).Range("J65")
    Next i

msg = "You have to delete the sheet [Report] before creating the next report"

On Error GoTo handler
Worksheets.Add
ActiveSheet.Name = "Report"

Set firstcell = Cells(2, 1)
Set lastcell = Cells(UBound(table, 1) + 2, UBound(table, 2) + 1)
Set data_range = Range(firstcell, lastcell)

Range("A1").Value = "Name"
Range("B1").Value = "Due / owed"
data_range = table
data_range.Sort Key1:=Range("B1"), Order1:=xlAscending

Exit Sub

handler:
    MsgBox (msg)

End Sub

---

这很简单。你试过录制宏吗？请告诉我们你试过什么？询问代码的问题必须表明对正在解决的问题的最低理解。包括尝试的解决方案、为什么它们不起作用以及预期的结果。另见：