VBA记录内容记录最新的

panhua0624 · 发表于 2024-1-5 19:03

本帖最后由 panhua0624 于 2024-1-6 07:44 编辑

怎么弄在汇总表里只增加3月6号这个数据，而且以后也是只记录新的内容到汇总表里去，以前的数据不重复记录，我这样写，每次多把所以的内容记录一遍。

Sub 记录()
'
' 记录 Macro
With Sheets("汇总")
x = .Range("a65536").End(xlUp).Row + 1 '取得“汇总”表中最后一个空行的行号（即写入位置）
For i = 0 To Application.WorksheetFunction.CountA([B3:B300]) - 1 '商品信息分五行，为了简化代码，使用循环语句
.Cells(x + i, 4) = [A1] '客户
.Cells(x + i, 1) = Cells(i + 3, 2) '年
.Cells(x + i, 2) = Cells(i + 3, 3) '月
.Cells(x + i, 3) = Cells(i + 3, 4) '日
.Cells(x + i, 5) = Cells(i + 3, 5) '采购单号
.Cells(x + i, 6) = Cells(i + 3, 6) '存货编码
.Cells(x + i, 7) = Cells(i + 3, 7) '名称
.Cells(x + i, 8) = Cells(i + 3, 8) '规格型号
.Cells(x + i, 9) = Cells(i + 3, 9) '品牌
.Cells(x + i, 10) = Cells(i + 3, 10) '单位
.Cells(x + i, 11) = Cells(i + 3, 11) '数量
.Cells(x + i, 12) = Cells(i + 3, 13) '单价
.Cells(x + i, 13) = Cells(i + 3, 18) '含税总价
.Cells(x + i, 14) = Cells(i + 3, 14) '成本
Next
End With
End Sub

沈默00 · 发表于 2024-1-6 07:38

这是汇总什么内容，没看出来

panhua0624 · 发表于 2024-1-6 07:44

沈默00 发表于 2024-1-6 07:38
这是汇总什么内容，没看出来

把每个客户，每天销售记录到一张工作表里，但是每个客户每天销售多在增加记录的时候前面重复的不记录

沈默00 · 发表于 2024-1-6 07:46

我是说你自己写的代码，好像没有汇总的动作，

3190496160 · 发表于 2024-1-6 10:41

代码先取得最后一行的年，月，日，然后再循环判断，跟取得的年月日相同的行，就记录到汇总表中

panhua0624 · 发表于 2024-1-6 10:48

沈默00 发表于 2024-1-6 07:46
我是说你自己写的代码，好像没有汇总的动作，

我这个公式是把每个客户的销售记录，想要的内容复制到汇总表里，方便以后做数据分析

panhua0624 · 发表于 2024-1-6 10:55

3190496160 发表于 2024-1-6 10:41
代码先取得最后一行的年，月，日，然后再循环判断，跟取得的年月日相同的行，就记录到汇总表中

大哥这个代码要怎么写

3190496160 · 发表于 2024-1-7 08:42

Sub 记录汇总()
Dim ar As Variant
Dim br()
With ActiveSheet
r = .Cells(Rows.Count, 2).End(xlUp).Row
nf = .Cells(r, 2)
yf = .Cells(r, 3)
ts = .Cells(r, 4)
kh = .[a1]
rq = CDate(nf & "/" & yf & "/" & ts)
For i = r To 3 Step -1
      rq_1 = CDate(.Cells(i, 2) & "/" & .Cells(i, 3) & "/" & .Cells(i, 4))
      If rq_1 <> rq Then
         ks = i
         Exit For
      End If
Next i
ar = .Range(.Cells(ks + 1, 1), .Cells(r, 18))
End With
ReDim br(1 To UBound(ar), 1 To 14)
For i = 1 To UBound(ar)
If ar(i, 2) <> "" Then
      n = n + 1
      br(n, 1) = ar(i, 2)
      br(n, 2) = ar(i, 3)
      br(n, 3) = ar(i, 4)
      br(n, 4) = kh
      For j = 5 To 11
         br(n, j) = ar(i, j)
      Next j
      br(n, 12) = ar(i, 13)
      br(n, 13) = ar(i, 18)
      br(n, 14) = ar(i, 14)
End If
Next i
With Sheets("汇总")
x = .Cells(Rows.Count, 1).End(xlUp).Row + 1 '取得“汇总”表中最后一个空行的行号（即写入位置）
.Cells(x, 1).Resize(n, UBound(br, 2)) = br
End With
MsgBox "ok!"
End Sub

3190496160 · 发表于 2024-1-7 08:43

3190496160 · 发表于 2024-1-7 08:44

销售.rar (217.37 KB, 下载次数: 17)

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

VBA记录内容记录最新的

评分