保存数据到另一个工作表

點竪

工作表中的内容如何自动保存到另一工作表，谢谢。

Jaofuan

查看附件，针对附件测试有效

點竪

Jaofuan 发表于 2019-6-12 14:24
查看附件，针对附件测试有效

可以了，谢谢。对于宏还不是很懂，可如果有时间的话能把每步表达什么意思写给我吗？让我学习一下。谢谢

點竪

要求不新增加数据行，在原数据未保存。

點竪

要求不新增加数据行，在原数据未保存。

點竪

Jaofuan 发表于 2019-6-12 14:24
查看附件，针对附件测试有效

你好，我又新上传了一个附件，保存后不新增加数据行在原数据行上修改。

大灰狼1976

1. Sub TEST()
   
2. Dim arr
   
3. With Sheets(1)
   
4.   arr = Array(.[B2], .[E2], .[I2], .[C3], .[C4], .[H4], .[C5], .[C6])
   
5. End With
   
6. Sheets(2).[a65536].End(3).Offset(1).Resize(, UBound(arr) + 1) = arr
   
7. End Sub

复制代码

Jaofuan

點竪 发表于 2019-6-12 17:01
你好，我又新上传了一个附件，保存后不新增加数据行在原数据行上修改。

7楼师傅的数组比我的要块，只需要把最后一句Sheets(2).[a65536].End(3).Offset(1).Resize(, UBound(arr) + 1) = arr 改为 Sheets(2).[A2].Resize(, UBound(arr) + 1) = arr  就可以了

點竪

Jaofuan 发表于 2019-6-12 17:21
7楼师傅的数组比我的要块，只需要把最后一句Sheets(2).[a65536].End(3).Offset(1).Resize(, UBound(arr)  ...

你好，改后是可以不新增加行，但是整体行的数据都修改了，我的想法是办公室和领导填写意见后就补充到后面的格子里，而不修改前面数据。

Jaofuan

點竪 发表于 2019-6-12 17:51
你好，改后是可以不新增加行，但是整体行的数据都修改了，我的想法是办公室和领导填写意见后就补充到后面 ...

这样的话就要加一个判断，根据编码判断是否保存过，如果有就更新，没有就新加。