VBA 参考工作表与图表表

自然语言生成在VBA中的应用

vba
Sub GenerateReport()
    Dim ws As Worksheet
    Dim rng As Range
    Dim reportText As String
    
    ' 获取工作表对象
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取数据范围
    Set rng = ws.Range("A1:C10")
    
    ' 生成报告文本
    reportText = "根据工作表中的数据，我们可以得出以下：" & vbCrLf
    
    ' 遍历数据范围，生成文本
    For Each row In rng.Rows
        reportText = reportText & "第" & row.Row & "行的数据为：" & vbCrLf
        For Each cell In row.Cells
            reportText = reportText & cell.Value & " "
        Next cell
        reportText = reportText & vbCrLf
    Next row
    
    ' 输出报告文本
    MsgBox reportText
End Sub