摘要:原表 目标统计汇总表 VBA代码 Private Sub CommandButton1_Click() Dim arr, i&, n&, d As Object, s$, a() arr = Sheet1.Range("A1").CurrentRegion Set d = CreateObject( 阅读全文
posted @ 2020-07-16 14:28 袁氏家谱网 阅读(421) 评论(5) 推荐(0) 编辑
摘要:Option Explicit Sub test() '汉字转阿拉伯数字模块Dim tm, iiDim arrPre, arrResarrPre = Range("A2:A20") '待转换汉字存放位置A列,可修改ReDim arrRes(1 To UBound(arrPre), 1 To 1)Fo 阅读全文
posted @ 2020-07-16 13:08 袁氏家谱网 阅读(418) 评论(1) 推荐(0) 编辑