![](https://img-blog.csdnimg.cn/20201014180756925.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Excel
文章平均质量分 79
linzhi403
这个作者很懒,什么都没留下…
展开
-
Excel_getPassWord亲测可用
Public Sub Password_cracking() Const DBLSPACE As String = vbNewLine & vbNewLine Const AUTHORS As String = DBLSPACE & vbNewLine & _ " Author - jnxxhzz " Const HEADER As String = "Password_cracking" Const VERSION As String =原创 2020-05-30 08:49:05 · 306 阅读 · 0 评论 -
将普通表变成交叉表
Sub zz() Dim d1 As New Dictionary, d2 As New Dictionary, d3 As New Dictionary, ar ar = Sheet1.Range("A1").CurrentRegion For i = 2 To UBound(ar) d1(ar(i, 2)) = ar(i, 3): d2(ar(i, 4)) = ar(i, 5) d3(ar(i, 4) & ar(i, 2)) = d3(ar转载 2020-05-24 22:17:57 · 331 阅读 · 0 评论