Next i
On Error Rescom Next
For i = 1 To CellCount
For j = i + 1 To CellCount
If SortedData(j) <> "" Then
If ascending Then
If SortedData(i) > SortedData(j) Then
Temp = SortedData(j)
SortedData(j) = SortedData(i)
SortedData(i) = Temp
End If
Else
If SortedData(i) < SortedData(j) Then
Temp = SortedData(j)
SortedData(j) = SortedData(i)
SortedData(i) = Temp
End If
End If
End If
Next j
Next i
SORTED = Application.Transpose(SortedData)
End Function
解答：数组分为两种:
1 、横数组 用单元格比喻是 A1: D1 (其实单元格就可理解成数组）
2 、竖数组 用单元格比喻是 A1: A4
在过程中形成的数组都为横数组 如 SortedData（）
Transpose 函数能将 横数组 转为 竖数组；竖数组 转为 横数组
SORTED 函数返回的都是竖数组，这样就可把数据方便的放入一列内或 listbox combobox 等内
只是个人理解，供参考
如何在在公式内加chā批注
储存格公式的备注参考可用多种方式表示，如储存格本身的备注，在公式旁的储存格用文字表示、、、等等。现在为大家介绍一个小技巧，就是用 N 函数在公式内加chā批注，N 函数的详细请参考电子表格的帮助。
这个小技巧主要利用 N(其它)，传回 0 的特色。文字属于其它，例子如下： B6 ，C6 及 D6 是三个区域的个别统计数字，H20 则是他们的总和，平常公式是：=SUM(B6:D6)。在公式内加chā批注可以这样表达： =SUM(B6:D6) + N("区域 1 ， 区域 2 及 区域 3 的总数")
这条语句怎么写
不保存直接关闭当前的工作簿的VBA语句及不保存直接关闭EXCEL窗口(关闭所有的工作簿)的VBA语句
解答：1、Workbooks("BOOK1.XLS").Close SaveChanges:=False
2、不保存直接关闭EXCEL窗口(关闭所有的工作簿)的VBA语句：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Application.Quit
End Sub
有没有语法可一次把textbox的值全改为
userform里有20个textbox和2个combobox, 有没有语法可一次把textbox的值全改为""？
解答：新增 一个 CommandButton1
Private Sub CommandButton1_Click()
Dim obj As Object
For Each obj In Controls
If TypeOf obj Is MSforms.TextBox Then
obj = ""
End If
Next obj
End Sub
又问：我是要在userform_initialize里设定却不想一个一个textbox设为""，想请教一下怎样做较有效率
解答：假设您没变更Textbox之预设名称，在Initialize事件中加入
Dim obj As Object
For Each obj In Controls
If obj.Ncom Like "Textbox*" Then obj = ""
Next obj
怎样用程序删除工作表中的空行
空行就是表示这行的每一个单元格都是空白的，所以可以判断只要某一特定单元格为空，则删除该单元格所在的行，代码如下：
Sub d()
For i = 1 To 100
If Cells(i, 1) = "" Then
Rows(i).Delete
End If
Next
End Sub
上面的程序通用xìng差，遇到数据分布不规则的情况就不适用了，最好改成如下代码：
' For 100 Rows
For i = 100 To 1 Step -1
If WorksheetFunction.CountA(Rows(i)) = 0 Then
Rows(i).EntireRow.Delete
End If
Next i
有没有函数可以直接查找某列（行）数据中是否包括某单值
解答：用match()和countif()都可以。如在A列中查找是否有10存在，公式：=IF(ISNA(MATCH(10,A:A,0)),"不存在","存在")
如何在EXCEL打出正负号
解答：单元格格中设置为:+0.00;-0.00;0.00
“Microsoft Office工资表”全攻略
如果你单位有得心应手的工资软件，或者你甘心埋头苦干不惜汗水，那就省省吧，用不着往下看了。
小型企事业单位如果没有专门的工资表软件，每月编制工资表都是一件费时费力的重复劳动。不过只要有Microsoft Office 2000/XP
软件，可就轻松多了。
用Excel制作工资表
步骤一：创建工资表的基本格式 。
步骤二：建立和复制计算公式。
在E3单元格内写入公式“=B3+C3+D3”，然后选定该单元格，并按着CTRL键，鼠标单元格右下变成复制符号时，拖至E5单元格，此时应发额计算完毕。
个人所得税的计算是个比较
松语文学免费小说阅读_www.16sy.com