VBA实现工作表列名左置（A列）及多列数据输出需求

你的需求是把数据库查询返回的RecordSet数据，以字段名放在A列、对应值放在B列的竖排格式输出，而非默认的横向表头。现有代码仅处理了第一列数据，核心问题是行号递增逻辑错误、未正确控制列位置，以下是修正后的代码：

' 执行查询并将数据存入RecordSet
Set adoRecordset = adoCommand.Execute
' 设置起始行（从第10行开始）
intRow = 10
' 循环遍历每条记录
Do While Not adoRecordset.EOF
    ' 遍历当前记录的所有字段
    For rs = 0 To adoRecordset.Fields.Count - 1
        With shtData
            ' A列写入字段名
            .Cells(intRow, 1).Value = adoRecordset.Fields(rs).Name
            ' B列写入对应字段值
            .Cells(intRow, 2).Value = adoRecordset.Fields(rs).Value
        End With
        ' 每写一个字段，行号+1
        intRow = intRow + 1
    Next rs
    ' 每条记录写完后，空一行分隔（可选，注释掉则无空行）
    intRow = intRow + 1
    ' 移动到下一条记录
    adoRecordset.MoveNext
Loop
' 释放资源
Set adoRecordset = Nothing
Set adoCommand = Nothing
adoConnection.Close
Set adoConnection = Nothing

关键修改说明 #

• 直接固定列位置：A列对应第1列、B列对应第2列，移除未初始化的intCol变量，避免定位错误
• 字段循环内递增行号：每个字段单独占一行，确保30列数据都能依次写入
• 简化嵌套With结构，代码更易读
• 可选添加记录间的空行分隔，提升表格可读性

内容的提问来源于stack exchange，提问作者ChrisR