excel ubound函数（Excel函数字符公式求助）

本文目录

• Excel函数字符公式求助
• Excel中VB编程如何获取数组的元素个数和维数
• EXCEL数据处理，如何将AB列中数据用函数或别的方式自动转成DE列的一一对应的形式 附图------
• excel表如何设置变化值在5%-25%的随机函数
• excel函数多条件统计我想统计左边数据，每行同时满足两个条件的行数求大神指导
• excel中如何应用函数将符合条件的全部列出来

Excel函数字符公式求助

’自定义公式-按ALT+11-插入-模块(随机取数)
Function GetRndItem(num As Integer) As String
Dim a
a = 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 Integer
Randomize
Dim Index As Integer
Dim Text As String
Dim arU As Integer
arU = UBound(a)
If num 》 arU + 1 Then num = arU + 1
For I = 1 To num
Index = Int(Rnd * (arU + 1))
Text = Text & "|" & a(Index)
a(Index) = a(arU)
arU = arU - 1
Next
GetRndItem = Text
End Function
Sub a随机取数()
arr = Split(Mid(GetRndItem(26), 2), "|")
’arr = Application.Transpose(arr)
Range("c6").Resize(1, UBound(arr)) = arr
End 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中VB编程如何获取数组的元素个数和维数

领用下面代码可获取数组个数：
(UBound(A,1)-LBound(A,1))*((UBound(A,2)-LBound(A,2))
其中Ubound(A,1)为数组第一维上限，Lbound(A,1)为数组第一维下限，二者相减及为数组第一维的个数，同理，后面是数组第二维的个数，两者的乘积即该数组所有元素的个数。

EXCEL数据处理，如何将AB列中数据用函数或别的方式自动转成DE列的一一对应的形式 附图------

用VBA比较方便
Sub 重新整理()
Dim arr, brr(), m%
m = 1
arr = Range("a1:b" & Range("a65536").End(3).Row)
For r = 1 To UBound(arr)
s = Split(arr(r, 2))
For c = 0 To UBound(s)
ReDim Preserve brr(1 To 2, 1 To m)
brr(1, m) = arr(r, 1)
brr(2, m) = s(c)
m = m + 1
Next
Next
Range("d1").Resize(UBound(brr, 2), UBound(brr, 1)) = Application.Transpose(brr)
End Sub
然后手动排序一下就可以了。

excel表如何设置变化值在5%-25%的随机函数

设你原数据从sheet1表的a1单元格开始。在sheet2的a1单元格输入：
=sheet1!a1*(0.05+RAND()*0.2)
然后选中a1单元格拖拉到你需要的表格范围就可以了。

excel函数多条件统计我想统计左边数据，每行同时满足两个条件的行数求大神指导

使用vba实现的，实现结果如下图，运行前，清空h列的数字，然后点击按钮运行，

完全是一键搞定

Sub 按钮2_Click()
    Application.ScreenUpdating = False
    arr = .CurrentRegion
    brr = .CurrentRegion
    
    For j = 2 To UBound(brr)
        For i = 2 To UBound(arr)
            a = 0
            b = 0
            c = 0
            For k = 1 To 5
                If arr(i, k) = brr(j, 2) Then
                    a = 1
                Else
                    If arr(i, k) = brr(j, 3) Then b = 1
                End If
                If a + b = 2 Then
                    c = 1
                    Exit For
                End If
            Next k
            If c = 1 Then
                a = 0
                For k = 1 To 5
                    For l = 4 To 9
                        If arr(i, k) = brr(j, l) Then
                            a = a + 1
                            Exit For
                        End If
                    Next l
                    If a = 3 Then
                        brr(j, 1) = brr(j, 1) + 1
                        Exit For
                    End If
                Next k
            End If
                
        Next i
    Next j
    .CurrentRegion = brr
    Application.ScreenUpdating = True
End Sub

按alt+f11打开vbe，插入模块输入代码即可

不能上传文件了

excel中如何应用函数将符合条件的全部列出来

1、首先打开excel表格，如下图，左边是某年级学生信息表，现在想要按班级提取相应的学生姓名。

2、先在班级前插入一列辅助列。

3、在新插入的辅助列输入中公式=B2&COUNTIF($B$1:B2,B2)，并下拉到底。

4、在E2单元格输入公式=IFERROR(VLOOKUP(E$1&ROW(A1),$A:$C,3,0),"")，并下拉直至出现空单元格。

5、最后把公式向右拉，然后向下填充，即可录入各班级对应学生姓名。