用宏把一张工作表内容填写到另一张工作表中

panhua0624

用宏公式，把造价表里的型号，规格，米数，元/米填到报价单里的型号规格数量单价里，而且报价单，行数不够时自动增加行。各位大侠帮忙看下，谢谢。

3190496160

根据造价中的什么来生成一张报价单，或者说，根据什么来确定，造价中的那几行数据是一张报价单

panhua0624

3190496160 发表于 2023-12-10 10:32
根据造价中的什么来生成一张报价单，或者说，根据什么来确定，造价中的那几行数据是一张报价单

根据造价表中计算出来的数据，如：YJV-0.6/1KV 1×1.5 算出来的单价是1.14，然后根据造价的这些数据，把他填写到另一张工作表中也是就（报价单），把造价表中对应的数据填到报价单中。

panhua0624

3190496160 发表于 2023-12-10 10:32
根据造价中的什么来生成一张报价单，或者说，根据什么来确定，造价中的那几行数据是一张报价单

根据造价这张工作表里的数据，把他填入报价单这张工作表中，如造价表算出YJV-0.6/1KV 1×1.5 单价是1.14元/米，把他填到报价单中就可以了，如果造价表中有6行数据，那么在填入报价单的时候，是后面行数也自动增加。

3190496160

panhua0624 发表于 2023-12-10 10:56
根据造价这张工作表里的数据，把他填入报价单这张工作表中，如造价表算出YJV-0.6/1KV 1×1.5 单价是1.14 ...

造价表中无论有多少行数据，都生成一张报价单？？？？？？？

panhua0624

3190496160 发表于 2023-12-10 11:02
造价表中无论有多少行数据，都生成一张报价单？？？？？？？

对的，不管有多少只生成一张报价单

Excel加速者

这种，直接复制到报价单里就行

3190496160

Sub 报价单()
Application.ScreenUpdating = False
Dim ar As Variant
Dim br()
Dim rn As Range
With Sheets("造价")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 2 Then MsgBox "造价表为空！": End
    ar = .Range("a1:h" & r)
End With
ReDim br(1 To UBound(ar), 1 To 8)
For i = 2 To UBound(ar)
    If Trim(ar(i, 1)) <> "" Then
        n = n + 1
        br(n, 1) = n
        br(n, 2) = ar(i, 2)
        br(n, 3) = ar(i, 3)
        br(n, 4) = "米"
        br(n, 5) = ar(i, 4)
        br(n, 6) = ar(i, 5)
        br(n, 7) = ar(i, 8)
    End If
Next i
With Sheets("报价单")
    rs = .Cells(Rows.Count, 6).End(xlUp).Row
    .Rows("5:" & rs - 1).Delete
    .Rows(5).Resize(n).Insert Shift:=xlDown
    .[a5].Resize(n, UBound(br, 2)) = br
    .[a5].Resize(n, UBound(br, 2)).Borders.LineStyle = 1
    .Cells(n + 5, 7).FormulaR1C1 = "=SUM(R[-" & n & "]C:R[-1]C)"
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

3190496160

造价表11.rar (31.34 KB, 下载次数: 12)

2023-12-10 12:47 上传

点击文件名下载附件