根据户主提取全部家庭成员信息的问题

zpy2 · 发表于 2020-12-21 15:54

rongyixuezhe 发表于 2020-12-21 14:39
不能，大系统很多功能都满足不了。目前只能根据数据和有限的功能尽可能的满足各种要求。。。

总共4000多户，一下子要取3000多户？
我觉得，这个查找需求很还算基本，只是一次要这么多，有点费劲。

cjc209 · 发表于 2020-12-21 15:59

rongyixuezhe 发表于 2020-12-21 14:37
想过尝试VBA，可我的工作环境中有几个问题
1现工作环境中统一使用WPS，WPS使用VBA需要花钱。工作涉及的 ...

谁说WPS使用VBA需要花钱? 安装VBA for WPS小插件就可以了我都是这样使用的WPS VBA模块的百度满地都是

rongyixuezhe · 发表于 2020-12-21 17:07

cjc209 发表于 2020-12-21 15:59
谁说WPS使用VBA需要花钱? 安装VBA for WPS小插件就可以了我都是这样使用的WPS VBA模块的百度满地都是

谢谢我去找找看

rongyixuezhe · 发表于 2020-12-21 17:09

3190496160 发表于 2020-12-21 15:44

谢谢我好好学习相关内容

cjc209 · 发表于 2020-12-21 18:04

Sub 筛选()
arr = Sheet1.UsedRange.Value
brr = Sheet2.UsedRange.Value
' ReDim crr(1 To UBound(brr, 1), 1 To UBound(brr, 2))
Sheet2.Activate
For r = 1 To UBound(arr, 1)
      sfz = arr(r, 3)
      kzh = arr(r, 10)
      Set myRange = Sheet2.Cells.Find(what:=sfz, LookIn:=xlValues, LookAt:=xlWhole)
      qsh = myRange.Row
      For i = qsh To qsh + kzh - 1
         k = k + 1
         For c = 1 To UBound(brr, 2)
            crr(k, c) = brr(i, c)
         Next c
      Next i
Next r
Sheet3.Range("a2").Resize(k, UBound(brr, 2)) = crr
End Sub

65861954 · 发表于 2020-12-21 20:35

有2点疑问：1、重名的你如何处理。2、家庭成员姓名哪里找？我看了第二个表没有姓名只有证件号码。

65861954 · 发表于 2020-12-21 20:45

2点疑问：1、重名的咋办。你以姓名为条件查找。2、你表3的家庭成员的姓名哪儿来的？我找了3个表都没发现。

grldrkjhuy · 发表于 2020-12-22 08:46

本帖最后由 grldrkjhuy 于 2020-12-22 08:52 编辑

看看是否是这样！！！！

cmxsky · 发表于 2022-9-18 17:00

3190496160 发表于 2020-12-21 15:44

这个是用VBA代码实现的吗？？,下载了看不到代码

h2016 · 发表于 2024-3-21 15:50

学习户主方面

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

[已解决] 根据户主提取全部家庭成员信息的问题