将行内日期整理至指定列：Excel VBA代码求助

直接上适配你需求的VBA代码，注释写得很细，适合刚学几周的新手：

Sub 转成目标报表格式()
    Dim 源Sheet As Worksheet, 目标Sheet As Worksheet
    Dim 源数据最后一行 As Long, 当前目标行 As Long
    Dim i As Long ' 循环计数器

    ' 替换成你实际的工作表名称
    Set 源Sheet = ThisWorkbook.Sheets("原始数据")
    Set 目标Sheet = ThisWorkbook.Sheets("目标报表")

    ' 清空目标表旧数据（留表头）
    目标Sheet.Rows("2:" & 目标Sheet.Cells(目标Sheet.Rows.Count, 1).End(xlUp).Row).Clear

    ' 获取源数据的最后一行，避免循环到空行
    源数据最后一行 = 源Sheet.Cells(源Sheet.Rows.Count, 1).End(xlUp).Row
    当前目标行 = 2 ' 目标表从第二行开始写（第一行是表头）

    ' 遍历源数据，从第二行开始（跳过源表头）
    For i = 2 To 源数据最后一行
        ' 写入主项行（对应目标表的大条目）
        目标Sheet.Cells(当前目标行, 1).Value = 源Sheet.Cells(i, 1).Value ' 编号
        目标Sheet.Cells(当前目标行, 2).Value = 源Sheet.Cells(i, 2).Value ' 日期
        目标Sheet.Cells(当前目标行, 3).Value = 源Sheet.Cells(i, 3).Value ' 主项名称

        ' 写入第一行明细（对应目标表的缩进条目）
        当前目标行 = 当前目标行 + 1
        目标Sheet.Cells(当前目标行, 1).Value = "  " & 源Sheet.Cells(i, 4).Value ' 明细名称加缩进
        目标Sheet.Cells(当前目标行, 2).Value = 源Sheet.Cells(i, 5).Value ' 明细数值

        ' 如果有更多明细，复制上面这段改列号就行
        当前目标行 = 当前目标行 + 1
    Next i

    MsgBox "搞定！报表格式转换完成"
End Sub

新手必看的报错排查点 #

1. 下标越界：检查代码里的工作表名称是不是和你Excel里的完全一致，比如别把"原始数据"写成"原是数据"；另外列号要对应你的实际数据，比如源数据的明细在第6列就把4改成6。
2. 类型不匹配：如果源数据里有混合格式（比如单元格里既有文本又有数字），可以用CStr(源Sheet.Cells(i, 1).Value)转成文本，CDbl(...)转成数字，避免写入时出错。
3. 循环死循环/跳行：一定要确保当前目标行在每次写入后都递增，不然会一直覆盖同一行，或者漏写数据。
4. 空行导致的错误：用源数据最后一行 = 源Sheet.Cells(源Sheet.Rows.Count, 1).End(xlUp).Row获取真实的最后一行，别手动写死行数（比如For i=2 To 100），不然空行也会被循环到。

适配你的样本/目标格式的调整建议 #

• 如果你的主项是按某列分组（比如相同编号的行要合并成一个主项），可以加个判断：比如记录上一行的编号，和当前行对比，相同就只写明细，不同就写主项+明细。示例代码是按每行都生成主项+明细的逻辑，你可以根据样本图调整。
• 缩进可以用Chr(9)（制表符）代替空格，看起来更规整：目标Sheet.Cells(当前目标行, 1).Value = Chr(9) & 源Sheet.Cells(i, 4).Value

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