【求助】根据指定条件对应的行生成单独的excel文件

yango1

求助各位大神我在sheet（a)中做了一个客户信息录入的表格，想实现把sheet（b）中的每一行的客户信息按销售（D列）名字以及当天日期所对应的行，把这些行单独负责到一个sheet并形成一个新的excel工作簿，工作簿命名以销售名字命名。在这个新的excel表格中填写Q列到T列，在把这些信息复制到原表sheet（b）中对应行的q到t列。

见附件

老骥705664849

看一半天，实在是看不懂你的需求是什么

yango1

老骥705664849 发表于 2020-6-23 08:37
看一半天，实在是看不懂你的需求是什么

sheet1的表录入客户信息，信息会写入sheet2，在sheet2中有D列是销售名字，我想用一个宏实现按销售名字以及当天的日期去筛选sheet2每一行的信息，把同一个销售名字当天的客户信息行复制到一个行的工作簿中， 这个工作簿用销售名字去命名。销售在自己的表中去填写后面列的补充信息，再用一个宏把所有销售填的表中的信息复制到这个来访登记表的sheet2中。

microyip

论坛里有很多相似甚至相同案例，参考一下

yango1

看了好多案例还是搞不明白，还请各位大神相助！！

lwwy1981

yango1 发表于 2020-6-23 16:36
看了好多案例还是搞不明白，还请各位大神相助！！

你说叙述没看懂,理论上应该可以实现,但是你说的不够清楚,再好好组织一下语言让我们明白你要做什么

zpy2

yango1 发表于 2020-6-23 16:36
看了好多案例还是搞不明白，还请各位大神相助！！

销售在自己的表中去填写后面列的补充信息，再用一个宏把所有销售填的表中的信息复制到这个来访登记表的sheet2中

协同，共享工作薄，云文档了解一下。
还有就是，工作表拆分，合并。。。（这种？）

还有，你是不是mac ?

yango1

zpy2 发表于 2020-6-23 18:13
销售在自己的表中去填写后面列的补充信息，再用一个宏把所有销售填的表中的信息复制到这个来访登记表的 ...

是mac。
是的，工作表拆分后填补充信息，然后再合并。

yango1

zpy2 发表于 2020-6-23 18:13
销售在自己的表中去填写后面列的补充信息，再用一个宏把所有销售填的表中的信息复制到这个来访登记表的 ...

是mac。
是的，工作表拆分后填补充信息，然后再合并。

yango1

1.客户信息录入到第一个sheet中，点按钮”录入客户“，客户信息录入会分别录入到”客户总表、来访明细表、客户总台账“
2.客户总台账中还有很多客户信息是空缺的，我需要把这个客户总台账按销售姓名以及日期筛选拆分成单个工作表（新的excel表），表名字用销售名字命名。
3.销售分别填完自己表中客户信息，再通过一个按钮将这些表中对应客户信息录入到到”来访登记表“中的”客户总台账“

客户录入的功能我已经写完了，拆分表我自己写了个，但只能形成新的sheet，而且还有些bug
以下是代码：
Sub Button9_Click()

Dim num, num1, y
Dim x As Integer
Dim i As Integer

n = 3

Application.ScreenUpdating = False
num = Sheets("基础信息").Application.WorksheetFunction.CountA(Columns(2))
num1 = Sheets("客户总台账").Application.WorksheetFunction.CountA(Columns(2))

For i = 2 To num
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("基础信息").Range("b" & i)
Sheets("客户总台账").Rows("1:2").Copy Sheets(Sheets.Count).Cells(1, 1)

For x = 3 To num1
If Sheets("客户总台账").Cells(x, 3) = Sheets("基础信息").Cells(i, 2) Then
Sheets("客户总台账").Cells(x, 3).EntireRow.Copy Sheets(Sheets.Count).Rows(n)
Sheets(Sheets.Count).Cells(n, 1).Select
Selection.ClearContents
n = n + 1
End If
Next x
n = 3
Next i
Application.ScreenUpdating = True
End Sub