麻烦老师帮写一段批量填充的代码（已解决，谢谢准提部林、gyduyong等各位老师）

准提部林

菲佣 发表于 2020-9-27 22:33
字典表的A-AI列均是开票系统导出的格式，仅有AJ-AL列是手动加入的，因不懂VBA的条件限制，所以仅从公式角 ...

合併格下一行有空白的, 是否取其上一行非空內容???
合併格最多有幾行???

菲佣

准提部林 发表于 2020-9-28 12:24
合併格下一行有空白的, 是否取其上一行非空內容???
合併格最多有幾行???

对，合并格有空行就取上一行有数据的行内容，原表实际内容我删除了，所以导致字典表AL列都数字，请看我后续附件图片示意，原表黄色部分为0.00，此时AL列即为实际情况。
关于合并单元格的行，这个不定数，时有时无，实际情况是：开具发票时，在备注栏如果有备注合同名称及合同编号的话，就会产生2行，这时就有合并行了。

菲佣

gyduyong 发表于 2020-9-28 09:33
每张申请表的内容是对应生成的，你所指的那个数字，我觉得没有必要，所以我就没有使用它了，如果还有 ...

我增加了字典表的行，执行后，还是生成一样数量的申请表，烦请老师再看看

准提部林

參考樣板:
Xl0000016.rar (18.87 KB, 下载次数: 15)

2020-9-28 14:34 上传

点击文件名下载附件

1) 清除時, 只保留第一個樣板
2) 執行時, 自動複製新增並填入內容
3) 空白格, 以前一非空內容填入

菲佣

准提部林 发表于 2020-9-28 14:36
參考樣板:

已使用上了，目前导入原表后，执行完美，唯一小缺憾是未能避开有0值行，同时生成了两个表，除金额外（见图，隐去了部分信息），其余信息一致。问题不大，不影响使用，因最终打印出申请表后，还会一刀两段，有零值那张不要即可，完美解决！谢谢老师！！！

准提部林

菲佣 发表于 2020-9-28 16:16
已使用上了，目前导入原表后，执行完美，唯一小缺憾是未能避开有0值行，同时生成了两个表，除金额外（见 ...

開票金額為0, 不列出來~~
Sub Get_Data()
Dim Arr, xArea As Range, xA As Range, xR As Range, N%, i&, j%, T(7), K%
Call ClearALL
Set xArea = [B1:E13]: Set xA = [B1]
Arr = Range(Sheet1.[A1], Sheet1.[AJ65536].End(xlUp))
Application.ScreenUpdating = False
For i = 2 To UBound(Arr)
    If Val(Arr(i, 36)) = 0 Then GoTo 101
    For j = 1 To 7
        T(0) = Arr(i, Array(9, 5, 16, 36, 20, 3, 1)(j - 1))
        If T(0) <> "" Then T(j) = T(0)
    Next j
    K = K + 1: If K > 1 Then xArea.Copy xA
    For Each xR In Union(xA(5, 2).Resize(5), xA(11, 2), xA(11, 4))
        N = N + 1: xR = T(N)
    Next
    Set xA = xA(17): N = 0
101: Next i
End Sub

菲佣

准提部林 发表于 2020-9-28 17:14
開票金額為0, 不列出來~~
Sub Get_Data()
Dim Arr, xArea As Range, xA As Range, xR As Range, N%, i& ...

完美！！！
再次感谢！！！