全面介绍吕氏家族最顶级的域名【CMCC┃JOB.SH┃JOBSH┃1CDY┃LP.VC┃LvQuan等】，顺便收录最及时的IT资讯。
那些年曾经注册使用过的域名
[
2022/11/14 06:57 | by 吕进 | Via 本站原创 ]
2022/11/14 06:57 | by 吕进 | Via 本站原创 ]
这是一篇隐藏日志。您需要以合适的身份登入后才能查看。
域名19001.cn正式启用
[ 2022/11/12 04:22 | by 吕进 | Via 本站原创 ]
2022/11/12 04:22 | by 吕进 | Via 本站原创 ]
202211120422注册了一个手机尾号（5位）19001的国内数字域名，还不清楚有什么实实在在的涵义。百度了一下，19001有这么几个意思：
1、19001这个一般指一对情侣一直长久，永恒不变。
2、GBT19001代表质量管理体系；
3、19001信箱：全国扫黑除恶办公室的举报信箱，
。
先给博客分配几个简单的域名，欢迎访问：
http://lvjin.19001.cn
http://cn.19001.cn
http://v.19001.cn
1、19001这个一般指一对情侣一直长久，永恒不变。
2、GBT19001代表质量管理体系；
3、19001信箱：全国扫黑除恶办公室的举报信箱，
。先给博客分配几个简单的域名，欢迎访问：
http://lvjin.19001.cn
http://cn.19001.cn
http://v.19001.cn
Navicit12破解教程
[ 2021/08/25 14:32 | by 吕进 | Via 本站原创 ]
2021/08/25 14:32 | by 吕进 | Via 本站原创 ]
1、Navicit12安装（安装结束后不启动）；
2、360完全卫士及杀毒软件等先退出；
3、将（注册机）破解程序复制到Navicit安装目录下；
4、打开注册机：
激活方法：
（1）运行注册机，勾选Backup、Host和Navicat v12，如图所示。然后点击Patch按钮，找到Navicat Premium 12安装路径下的navicat.exe，选中并点击打开，此时会有一个“navicat.exe - x64 -> Cracked！.”的弹窗提示，点击“确定”；
如果说没有自动弹出，需要选择文件的话，找到Navicat Premium 12安装路径下的navicat.exe，选中并点击打开，就会有上图的提示。
2、360完全卫士及杀毒软件等先退出；
3、将（注册机）破解程序复制到Navicit安装目录下；
4、打开注册机：
激活方法：
（1）运行注册机，勾选Backup、Host和Navicat v12，如图所示。然后点击Patch按钮，找到Navicat Premium 12安装路径下的navicat.exe，选中并点击打开，此时会有一个“navicat.exe - x64 -> Cracked！.”的弹窗提示，点击“确定”；
如果说没有自动弹出，需要选择文件的话，找到Navicat Premium 12安装路径下的navicat.exe，选中并点击打开，就会有上图的提示。
Vlookup，在vba中一般用Application.Vlookup来实现，但总归要通过循环完成，如有不匹配的还报错，感觉效率不高。这里直接上几个用字典替代vlookup的方法。
方法一(经测试，3000行数据匹配，只需0.0156秒)：
方法一(经测试，3000行数据匹配，只需0.0156秒)：
Sub VLOOKUP_01()
Dim t As Date
t = Timer
Application.ScreenUpdating = False
Sheets("DD").Range("AE2:AF10000").Clear
Set ddcl = Sheets("数据源")
Set dd = Sheets("目标表")
Dim data, temp, arr, brr
Dim d, v
Dim i&, k&
Set d = CreateObject("scripting.dictionary")
Set v = CreateObject("scripting.dictionary")
data = ddcl.[a2].CurrentRegion '被索引的数据表，也可以用具体的区域
'data = ddcl.Range("A1:D65536")
For i = 2 To UBound(data)
d(data(i, 1) & "") = data(i, 3) '被取值所在列，如果只匹配一列，就不需v字典了
v(data(i, 1) & "") = data(i, 4) '被取值所在列
Next
ddm = dd.Range("A65536").End(xlUp).Row
temp = dd.Range("k1:k" & ddm) '索引参照列，注意必须是第一行开始
ReDim arr(2 To UBound(temp), 1 To 1)
ReDim brr(2 To UBound(temp), 1 To 1)
For k = 2 To UBound(temp)
arr(k, 1) = d(temp(k, 1))
brr(k, 1) = v(temp(k, 1))
Next
dd.[AE2].Resize(UBound(arr) - 1, 1) = arr
dd.[AF2].Resize(UBound(brr) - 1, 1) = brr
Set d = Nothing
MsgBox "运行" & Format((Timer - t), "0.0000") & "秒"
End Sub
注意：目标表中的索引参照范围，必须从表的第一行开始，或者用dd.[K1].CurrentRegion
Dim t As Date
t = Timer
Application.ScreenUpdating = False
Sheets("DD").Range("AE2:AF10000").Clear
Set ddcl = Sheets("数据源")
Set dd = Sheets("目标表")
Dim data, temp, arr, brr
Dim d, v
Dim i&, k&
Set d = CreateObject("scripting.dictionary")
Set v = CreateObject("scripting.dictionary")
data = ddcl.[a2].CurrentRegion '被索引的数据表，也可以用具体的区域
'data = ddcl.Range("A1:D65536")
For i = 2 To UBound(data)
d(data(i, 1) & "") = data(i, 3) '被取值所在列，如果只匹配一列，就不需v字典了
v(data(i, 1) & "") = data(i, 4) '被取值所在列
Next
ddm = dd.Range("A65536").End(xlUp).Row
temp = dd.Range("k1:k" & ddm) '索引参照列，注意必须是第一行开始
ReDim arr(2 To UBound(temp), 1 To 1)
ReDim brr(2 To UBound(temp), 1 To 1)
For k = 2 To UBound(temp)
arr(k, 1) = d(temp(k, 1))
brr(k, 1) = v(temp(k, 1))
Next
dd.[AE2].Resize(UBound(arr) - 1, 1) = arr
dd.[AF2].Resize(UBound(brr) - 1, 1) = brr
Set d = Nothing
MsgBox "运行" & Format((Timer - t), "0.0000") & "秒"
End Sub
