满足条件的整行数据每次刷新导入另一个表内

一切尽有可能 · 发表于 2022-5-23 10:52

点击刷新按钮实现将《出入库明细表》内出库日期为空的刷新导入<库存明细表>内，请老师帮忙写个代码，谢谢!

tel3033 · 发表于 2022-5-23 11:10

Sub 刷新()
Dim arr, brr(), i%, enRow%
arr = Sheets("出入库明细表").[a7].CurrentRegion
For i = 4 To UBound(arr)
If arr(i, 14) = "" Then
endRow = endRow + 1
ReDim Preserve brr(1 To 14, 1 To endRow)
For j = 1 To 14
brr(j, endRow) = arr(i, j)
Next
End If
Next
Sheets("库存明细").[a7].Resize(UBound(brr, 2), UBound(brr)) = Application.Transpose(brr)
End Sub

复制代码

tel3033 · 发表于 2022-5-23 11:12

代码审核中……

ykcbf1100 · 发表于 2022-5-23 14:37

本帖最后由 ykcbf1100 于 2022-5-23 14:40 编辑

按刷新按钮，自动在数据的最下方添加新数据。

一切尽有可能 · 发表于 2022-5-24 10:55

ykcbf1100 发表于 2022-5-23 14:37
按刷新按钮，自动在数据的最下方添加新数据。

您好老师，能不能刷新后覆盖原有数据，每次刷新后均为出入库明细表内现有的出库日期为空的整行信息，谢谢！

ykcbf1100 · 发表于 2022-5-24 10:58

一切尽有可能发表于 2022-5-24 10:55
您好老师，能不能刷新后覆盖原有数据，每次刷新后均为出入库明细表内现有的出库日期为空的整行信息，谢谢 ...

应该可以吧，我等下看看。

ykcbf1100 · 发表于 2022-5-24 11:07

是不是这个意思？

一切尽有可能 · 发表于 2022-5-25 10:49

ykcbf1100 发表于 2022-5-24 11:07
是不是这个意思？

是这个意思，非常感谢老师支持，谢谢！

liuzhitristan · 发表于 2022-5-25 11:28

高手如云，学习的最佳场所

jjmsxr · 发表于 2023-4-27 15:40

ykcbf1100 发表于 2022-5-24 11:07
是不是这个意思？

实用！！！1

		自动登录	找回密码
密码			免费注册