填充日期和删除相关的行

vicky427000 · 发表于 2024-5-17 18:50

本帖最后由 vicky427000 于 2024-5-20 14:47 编辑

草稿-VBA.rar (14.06 KB, 下载次数: 7)

表格123为原始表格，因为我有30个店铺，每个店铺的日记账每次发过来都要手工填充日期，太多店铺工作量很大，想用VBA自动填充日期。
然后就是核对收款，我需要删掉所有D列有数据的支出，也就是贷方，贷方删除掉，也是30个表格，得到的结果就是标颜色的那3个表，请大家帮忙看下，如果用VBA，因为工作量实在是太大，谢谢大家
直接在原来的表格删除数据就好，后面的三个表是告诉大家，最后的结果是那样。

ykcbf1100 · 发表于 2024-5-17 19:22

本帖最后由 ykcbf1100 于 2024-5-17 19:24 编辑

先问清楚，你原始表格是30个，删除D列后，再生成30个新表格，删除D列后的数据写入新表格，是这意思吗？在原表上删除不是更好吗？

vicky427000 · 发表于 2024-5-17 22:02

ykcbf1100 发表于 2024-5-17 19:22
先问清楚，你原始表格是30个，删除D列后，再生成30个新表格，删除D列后的数据写入新表格，是这意思吗？在原 ...

是在原表删除

dragonthree · 发表于 2024-5-17 22:11

这肯定得用VBA，删除D列有数据的行

vicky427000 · 发表于 2024-5-17 22:14

dragonthree 发表于 2024-5-17 22:11
这肯定得用VBA，删除D列有数据的行

还有填充日期，因为删除了日期没填充，就没有日期

dragonthree · 发表于 2024-5-17 22:29

日期填充了，试下吧

longwin · 发表于 2024-5-18 00:50

vicky427000 · 发表于 2024-5-18 15:20

longwin 发表于 2024-5-18 00:50

不能整理到一个表，因为是不同的银行账户，如果到一个表，我不知道是哪个账户的

vicky427000 · 发表于 2024-5-18 16:13

dragonthree 发表于 2024-5-17 22:29
日期填充了，试下吧

谢谢哈，感谢，我用了非常好

usedrange · 发表于 2024-5-18 16:57

Sub t()
Dim fs, k, m, r%
Set fs = ThisWorkbook
For Each f In fs.Sheets
      r = f.Range("b" & Rows.Count).End(xlUp).Row
      f.Activate
      For Each k In f.Range("a2:a" & r)
         If k <> "" Then m = k
         If k = "" Then Cells(k.Row, 1) = m
      Next k
      For i = r To 2 Step -1
         If Cells(i, 4) <> "" Then
            Rows(i).Delete

         End If
      Next i
Next f
Set fs = Nothing
End Sub

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

[已解决] 填充日期和删除相关的行