将一张表整理，并生成预约表。

shiruiqiang · 发表于 2021-5-18 21:41

jsydwym 发表于 2021-5-18 21:30
你生成表2、3后，再在表1最后增加只有第一针对象的第二针记录试试，表3的预约记录仍在，其时他已完成两针 ...

Sub cs()
Application.ScreenUpdating = False
Dim arr, dic, x, k, key, arr1(1 To 100000, 1 To 12)
Set dic = CreateObject("scripting.dictionary")
Sheets(2).Range("a2:l10000").ClearContents
Sheets(3).Range("a2:i10000").ClearContents
红色两句加一下。我这里试了一下“王X梅”第二针剂后不在“预约表”中了。

jsydwym · 发表于 2021-5-19 10:34

shiruiqiang 发表于 2021-5-18 21:41
Sub cs()
Application.ScreenUpdating = False
Dim arr, dic, x, k, key, arr1(1 To 100000, 1 To 12)
...

谢谢，完全达到所想。

如果在源文件同文件夹下，新建工作簿中如何中如何实现呢

乾呈似锦 · 发表于 2021-6-9 13:30

zpy2 发表于 2021-5-18 14:40
Select 受种者编码,姓名,性别,出生日期,身份证,手机号,工作单位,group_concat(接种日期,'') '第一次第二 ...

请教大神这是sql命令啊，看你这好像是在手机里生成的呀，是把表格导入sql还是另有办法

zpy2 · 发表于 2021-6-9 14:27

乾呈似锦发表于 2021-6-9 13:30
请教大神这是sql命令啊，看你这好像是在手机里生成的呀，是把表格导入sql还是另有办法

对的，导入sql然后查询一下。

ericxzhou · 发表于 2021-6-9 15:16

Sub test()
Dim i%, j%, k%, n%, d, arr, arr1, arr2
Set d = CreateObject("scripting.dictionary")
arr = Sheet1.[a1].CurrentRegion
For i = 2 To UBound(arr)
d(arr(i, 1)) = d(arr(i, 1)) & "," & i
Next
arr1 = d.keys
k = 2: n = 2
For i = 0 To UBound(arr1)
arr2 = Split(d(arr1(i)), ",")
If UBound(arr2) > 1 Then
Sheet2.Activate
For j = 1 To 6
Cells(k, 1) = k - 1
Cells(k, j + 1) = arr(arr2(1), j)
Next
Cells(k, 8) = arr(arr2(1), 8): Cells(k, 9) = arr(arr2(1), 9)
Cells(k, 10) = arr(arr2(2), 9): Cells(k, 11) = arr(arr2(1), 10)
Cells(k, 12) = arr(arr2(1), 16)
k = k + 1
Else
Sheet3.Activate
For j = 1 To 6
Cells(n, 1) = n - 1
Cells(n, j + 1) = arr(arr2(1), j)
Next
Cells(n, 8) = arr(arr2(1), 8): Cells(n, 9) = arr(arr2(1), 9)
n = n + 1
End If
Next
End Sub

复制代码

yanjie · 发表于 2021-6-10 17:08

疫苗总202106101629.rar (190.24 KB, 下载次数: 1) 用数据透视表就可以了，如下：
疫苗.png

乾呈似锦 · 发表于 2021-6-10 17:31

zpy2 发表于 2021-5-18 14:40
Select 受种者编码,姓名,性别,出生日期,身份证,手机号,工作单位,group_concat(接种日期,'') '第一次第二 ...

大佬，我在sql2005种实际执行'group_concat' 不是可以识别的内置函数名称。能提供一下在本机执行的命令吗

zpy2 · 发表于 2021-6-10 18:03

乾呈似锦发表于 2021-6-10 17:31
大佬，我在sql2005种实际执行'group_concat' 不是可以识别的内置函数名称。能提供一下在本机执行的命令 ...

用sqlite客户端实现。http://club.excelhome.net/forum.php?mod=viewthread&tid=1587570&mobile=&_dsign=a1cbb563

yanjie · 发表于 2021-6-11 10:08

疫苗总_数据透视表20210611_2.rar (162.45 KB, 下载次数: 2) 做好了，但是发现一种情况，例如，袁台红这个人，第1次和第2次接种的医院不一样，这种情况要合并吗？

jsydwym · 发表于 2021-10-22 15:53

yanjie 发表于 2021-6-10 17:08
用数据透视表就可以了，如下：

谢谢老版主。

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

[求助] 将一张表整理，并生成预约表。