2022年最新五级行政区划（VBA）

xsy我可以很好 · 发表于 2022-6-4 19:54

忘得快发表于 2022-6-4 16:53
出现上面的错误，请问楼主是什么原因？

我这里可以正常运行，也许是变量声明类型问题吧
Dim sj(), cTxt$, Arr(), sj2(1 To 6), nRow&, nL&

把Integer(整数型) % 变为 Long(长整数型) & 试试看

lizhipei78 · 发表于 2022-6-11 11:21

非常齐全，感谢分享

jz_l · 发表于 2022-6-11 11:44

感谢分享。

xsy我可以很好 · 发表于 2022-6-11 13:01

lizhipei78 发表于 2022-6-11 11:21
非常齐全，感谢分享

xsy我可以很好 · 发表于 2022-6-11 13:02

jz_l 发表于 2022-6-11 11:44
感谢分享。

gwjkkkkk · 发表于 2022-6-11 13:09

谢谢楼主分享。。。

xsy我可以很好 · 发表于 2022-6-11 13:18

gwjkkkkk 发表于 2022-6-11 13:09
谢谢楼主分享。。。

chenjx80 · 发表于 2022-6-11 13:57

xsy我可以很好发表于 2022-6-1 10:13
不会错的，唯一修改了村级名称。如“社区居民委员会”改为“社区”，不然太长了不方便填表。

目前发现一些问题：
1. 数据没有按照统计局给出的顺序排列（也许是重新排序了）；
2. 数据不完整，缺失了广东省东莞市和中山市，及其他几个城市的数据；
3. 也缺失很多城市都有的县级「市辖区」。
希望继续改善。

xsy我可以很好 · 发表于 2022-6-12 13:53

chenjx80 发表于 2022-6-11 13:57
目前发现一些问题：
1. 数据没有按照统计局给出的顺序排列（也许是重新排序了）；
2. 数据不完整，缺失 ...

2022年五级行政区划.part01.rar (2 MB, 下载次数: 42)

2022年五级行政区划.part02.rar (2 MB, 下载次数: 40)

2022年五级行政区划.part03.rar (2 MB, 下载次数: 41)

2022年五级行政区划.part04.rar (175.29 KB, 下载次数: 35)

全部在这里了

wanao2008 · 发表于 2022-6-12 17:11

在 nL = Target.Column 下面增加以下代码，会更快一些。
If nL > 1 Then
If Target.Offset(, -1).Value = "" Then Exit Sub
End If

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

[分享] 2022年最新五级行政区划（VBA）