|
本帖最后由 惠小会 于 2019-7-31 12:13 编辑
VBA编写中数据复制引用和VBA函数公式的使用方法求教
Sub 清关发票()
Worksheets("Sheet2").Range("A11:CC100000").ClearContents
n = Worksheets("录入").Range("A65536").End(xlUp).Row
If n < 6 Then Exit Sub
Worksheets("Sheet2").Range("A11:A" & n).Value = Worksheets("录入").Range("A6:A10000").Value
Worksheets("Sheet2").Range("B11:B" & n).Value = Worksheets("录入").Range("O6:O10000").Value
Worksheets("Sheet2").Range("C11:C" & n).Value = Worksheets("录入").Range("J6:J10000").Value
Worksheets("Sheet2").Range("D11:D" & n).Value = Worksheets("录入").Range("P6:P10000").Value
Worksheets("Sheet2").Range("E11:E" & n).Value = Worksheets("录入").Range("C6:C10000").Value * 0.4 / 1.3
Worksheets("Sheet2").Range("F11:F" & n).Value = Worksheets("录入").Range("B6:B10000").Value
Worksheets("Sheet2").Range("G11:G" & n).Value = Range("G" & n).Offset(0, -2) * Range("G" & n).Offset(0, -1)
End Sub
'请教:我想通过VBA实现根据"录入"表的信息做成表Sheet2,做成的样子是Sheet3。请指教,谢谢!
'问题:1我直接将表"录入"第6行的数据根据表头对应写入Sheet2表里第11列,下面行依次填入,为何第一行的数据总是覆盖了Sheet2表的第10行的标题?
'2 Sheet2表里G列根据"录入"表如何设置数据区域内整列的VBA公式填写:即E列单价乘以F列数量的公式,VBA公式该怎么填写?
'3 Sheet2表里的单价是"录入"表里的单价*40%/1.3,Sheet2表中E列VBA公式该怎么填写?
'如可以,能否帮做下完整过程,结果就和Sheet3效果一样,附件传不上去,请帮留下邮箱地址,我发过来。谢谢!
|
|