VBA数据引用到固定单元格

coco122222

有开票申请格式固定的，要再账单里把数据引用进去。


谢谢老师们


附件已经重新更新了正确的。请看看啊

3190496160

上传的附件似乎跟图片没有任何关系，是否附件上传错误了？？？

nicleyuan

这运费也可以买辆车了。

coco122222

3190496160 发表于 2023-1-15 09:12
上传的附件似乎跟图片没有任何关系，是否附件上传错误了？？？

对的老师我附近更新了。能在请你看看嘛

半百

不知道理解的对不对


Sub TEST()
Set D = CreateObject("scripting.dictionary")
ARR = Sheets("对账单").UsedRange
For I = 2 To UBound(ARR) - 1
    S = ARR(I, 7) & "," & ARR(I, 13) & "," & Format(ARR(I, 14), "M")
    D(S) = D(S) + ARR(I, 17)
Next
A = D.KEYS
For I = 0 To UBound(A)
B = Split(A(I), ",")
    R = I * 10 + 11
    With Sheets("开票信息")
        .Rows("1:7").Copy .Cells(R, 1)
        .Cells(R, 1) = "22." & B(2) & "月运费开票金额（含税）"
        .Cells(R, 3) = D(A(I))
        .Cells(R + 3, 3) = B(0)
        .Cells(R + 5, 3) = B(1)
        .Cells(R + 6, 3) = "商品车2022年" & B(2) & "月运费比亚迪"
    End With
Next
End Sub

ykcbf1100

coco122222 发表于 2023-1-15 14:09
对的老师我附近更新了。能在请你看看嘛

你这个还是不全。
起止地数据空白的，也不清楚你需求到底是什么。根据车牌号来查吗?
你开票的话，肯定要有车牌号或者单位啥的来的，你的车牌号开票表中没有啊。