如何用代码保存数据

天边2021

如何用VBA代码将A表的数据保存到B表对应的字段位置，去各位大神帮忙看看！

feilanga

案例大把的，自己研究吧

练姐

Sub baocun()

Dim i, l As Integer

i = Sheets("盘点数据库").Range("a60000").End(xlUp).Row + 1
l = Sheets("盘点表").Range("e60000").End(xlUp).Row

Sheets("盘点表").Range("c4:o" & l).Copy Sheets("盘点数据库").Range("g" & i)

Sheets("盘点数据库").Select

i = Sheets("盘点数据库").Range("f60000").End(xlUp).Row + 1
l = Sheets("盘点数据库").Range("g60000").End(xlUp).Row

Range("f" & i & ":f" & l).Select
Selection.Value = Sheets("盘点表").Range("N38")

Selection.Offset(0, -1).Value = Sheets("盘点表").Range("H38")
Selection.Offset(0, -2).Value = Sheets("盘点表").Range("D38")
Selection.Offset(0, -3).Value = Sheets("盘点表").Range("O2")
Selection.Offset(0, -4).Value = Mid(Sheets("盘点表").Range("O2"), 6, 2)
Sheets("盘点数据库").Range("a2:a" & l) = "=row()-1"

End Sub

天边2021

练姐 发表于 2022-12-17 17:59
Sub baocun()

Dim i, l As Integer

非常感谢  但发现有可以重复的情况。

feilanga

你想要的功能，里面都可以找到合适的代码，研究一下，套改一下。

杨建营

天边2021 发表于 2022-12-17 18:33
非常感谢  但发现有可以重复的情况。

请楼主参考。