求助各位大神 excel如何将下单表新输入的内容自动添加记录表里

789456luo · 发表于 2024-5-13 22:38

本帖最后由 789456luo 于 2024-5-13 23:17 编辑

就是将下单表里客户名称区域这两项数据记录到客户区域这个汇总表里来注意：重复的数据不要记录，要记录没出现过的新数据。

wxxydl · 发表于 2024-5-13 22:56

多给一点数据示例别人才好给你做

789456luo · 发表于 2024-5-13 23:15

wxxydl 发表于 2024-5-13 22:56
多给一点数据示例别人才好给你做

谢谢提醒，您看这样行吗，我更新一下附件

789456luo · 发表于 2024-5-13 23:16

新的附件。

3190496160 · 发表于 2024-5-14 07:18

Sub 记录()
Application.ScreenUpdating = False
Dim ar As Variant, cr As Variant
Dim i As Long, r As Long, rs As Long
Dim br(), brr()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("下单表")
kh = .[b3]
qy = .[g3]
If kh = "" Then MsgBox "请输入客户信息": End
If qy = "" Then MsgBox "请输入区域信息": End
End With
zf = kh & "|" & qy
With Sheets("客户区域")
r = .Cells(Rows.Count, 1).End(xlUp).Row
If r > 1 Then
      ar = .Range("a1:b" & r)
      For i = 2 To UBound(ar)
         zd = ar(i, 1) & "|" & ar(i, 2)
         d(zd) = ""
      Next i
End If
If Not d.exists(zf) Then
      .Cells(r + 1, 1) = kh
      .Cells(r + 1, 2) = qy
      MsgBox "录入完毕！"
Else
      MsgBox "已存在，无需录入！"
End If
End With
End Sub

3190496160 · 发表于 2024-5-14 07:19

下单表 - 副本2.rar (22.95 KB, 下载次数: 5)

LIUZHU · 发表于 2024-5-14 08:52

789456luo 发表于 2024-5-13 23:16
新的附件。

下单表中记录是空白的，需要录入一些数据，再看看如何设计代码？数据录入的方式不同，代码也不相同。

LIUZHU · 发表于 2024-5-14 08:52

建议发一个标准的样例说明怎样录入

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