excel ubound（请问excelVBA中怎样实现）

本文目录

• 请问excelVBA中怎样实现
• Excel函数字符公式求助
• EXCEL 嵌套循环宏语句
• Excel 宏的制作

请问excelVBA中怎样实现

考虑到字典KEY值具有唯一性的去重功能，现提供一个字典的解决方案，希望对您有帮助。如果只是有个工作表，而不是多个工作簿或工作表需要循环操作的话，直接用数据透视表或分类汇总等更加便捷，或者也可以用INDEX+IF+SMALL这个万金油公式来解决。Sub jisuan() Dim arr, d Dim i&, j&, k& arr = 列数据赋值给变量arr Set d = CreateObject("Scripting.Dictionary") ’创建字典 For i = 1 To UBound(arr) ’A列型号值遍历 temp = arr(i, 1) ’型号值 If Not d.exists(temp) Then ’如果字典中不存在Temp这个KEY值,则执行 d(temp) = arr(i, 2) ’型号值与对应的数量 arr(i, 2) 建立条目对 Else d(temp) = d(temp) + arr(i, 2) End If Next i .ClearContents ’D:E列清除原数据，为存放结果准备 .Resize(d.Count, 1) = WorksheetFunction.Transpose(d.keys) .Resize(d.Count, 1) = WorksheetFunction.Transpose(d.items)End Sub

Excel函数字符公式求助

’自定义公式-按ALT+11-插入-模块(随机取数)Function GetRndItem(num As Integer) As StringDim aa = Split("q|w|e|r|t|y|u|i|o|p|a|s|d|f|g|h|j|k|l|z|x|c|v|b|n|m", "|")Dim I As IntegerRandomizeDim Index As IntegerDim Text As StringDim arU As IntegerarU = UBound(a)If num 》 arU + 1 Then num = arU + 1For I = 1 To numIndex = Int(Rnd * (arU + 1))Text = Text & "|" & a(Index)a(Index) = a(arU)arU = arU - 1NextGetRndItem = TextEnd FunctionSub a随机取数()arr = Split(Mid(GetRndItem(26), 2), "|")’arr = Application.Transpose(arr)Range("c6").Resize(1, UBound(arr)) = arrEnd Sub

计算机excel应用快捷键：Ctrl+S 保存Ctrl+W 关闭程序Ctrl+N 新建Ctrl+O 打开Ctrl+Z 撤销Ctrl+F 查找Ctrl+P 打印文档Ctrl+X 剪切Ctrl+C 复制Ctrl+V 粘贴Ctrl+A全选Ctrl+B 粗体Ctrl+I 斜体Ctrl+U 下划线Ctrl+Shift输入法切换Ctrl+ 空格 中英文切换Ctrl+Home 光标快速移到文件头Ctrl+End 光标快速移到文件尾Ctrl+Esc 显示开始菜单Ctrl+Shift+《 快速缩小文字Ctrl+Shift+》 快速放大文字Ctrl+F5 在IE中强行刷新Ctrl+拖动文件 复制文件Ctrl+Backspace 启动\关闭输入法Ctrl+Alt+A 截屏(QQ的截屏）shift + Alt + Print Screen(选中要截屏的地方，然后按这三个键，然后打开图画或者word，粘贴即可)拖动文件时按住Ctrl+Shift 创建快捷方式Ctrl+Tab+shift在打开的应用程序中以反方向切换扩展资料：快捷键的有效范围不一定相同，比如：系统级快捷键可以全局响应，不论当前焦点在哪里、运行什么程序，按下时都能起作用；而应用程序级热键只能在当前活动的程序中起作用，当应用程序热键的定义程序不活动或在后台运行时，热键就无效了；控件级的热键则仅在当前控件中起作用。有专门用于设置热键的工具软件，此类工具需要在后台一直运行，否则通过这各种程序定义的快捷键会失效。通过修改键盘按键映射的软件则不属于此类。通常Windows平台下应用程序级的快捷键有几个是通用的，如Ctrl+Z常用于撤销操作。这种快捷键在菜单项的右侧或是控件的提示框中往往会注明。

EXCEL 嵌套循环宏语句

这样试试吧

Sub 测试()    Dim n As Integer    Dim i As Integer    Dim a As Integer    a = 1    For n = 1 To 3        For i = 1 To 3            Cells(a, 1) = "X" & n            Cells(a, 2) = "Y" & i            a = a + 1        Next i    Next nEnd Sub

Excel 宏的制作

用字典法，效率高，代码见下。PS：1、原工作表名为“原数据”2、对原数据按日期先排序3、新建一工作表，用于存储新数据，表名“新数据” 宏代码：Sub newdata()Dim crr() set d = CreateObject("scripting.dictionary")arr = Sheets("原数据").UsedRange.Value For i = 1 To UBound(arr, 1)If d.exists(arr(i, 1)) Thend(arr(i, 1)) = d(arr(i, 1)) & "|" & arr(i, 2) & "|" & arr(i, 3)Elsed(arr(i, 1)) = arr(i, 1) & "|" & arr(i, 2) & "|" & arr(i, 3)End IfNext arr = d.itemsReDim crr(UBound(arr), 0) For i = 0 To UBound(arr)brr = Split(arr(i), "|")ReDim Preserve crr(UBound(arr), Application.WorksheetFunction.Max(UBound(brr), UBound(crr, 2))) For j = 0 To UBound(brr)crr(i, j) = brr(j)NextNext Sheets("新数据")..Resize(UBound(crr, 1) + 1, UBound(crr, 2) + 1) = crr End Sub