- 博客(3)
- 收藏
- 关注
RSS订阅转载 VBA 字典数组运用查询系统
Sub find() '找Set d = CreateObject("scripting.dictionary")With Sheets("data") arr = .Range("a2:i" & Cells(Rows.Count, 1).End(xlUp).Row)End WithFor i = 1 To UBound(arr) d(arr(i, 5)) = Array(ar...
2018-06-28 15:55:35
8967
1
原创 VBA复习-6-26
1.偏移到未知行，加表头等。Sub offset应用1()Dim i%For i = 2 To 8 Step 2 [a1:e1].Copy [a1:e1].Offset(i)Next iEnd Sub2.resize属性 调整区域
2018-06-26 17:55:22
309
原创 VBA常用基础复习-6-25
1 运用工作表函数MsgBox Application.WorksheetFunction.CountIf(range("a1:a10"), "钢笔")2 VBA函数MsgBox VBA.Format(range("b1"), "yyyy年m月d日")3 like函数（相似）c = "excel函数" Like "*函*"4 单元格复习Range("a1").Selec
2018-06-25 17:58:29
536
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人