非常流行的排序函数：sub BubbleSort(List() As String)Dim First As Integer,Last As IntegerDim i As Integer, j As IntegerDim TempFirst=LBound(List)Last=UBound(List)For i=First To Last-1  For j=i+1 to Last    If UCase(List(i)>UCase(List(j)) Then      Temp=List(j)      List(j)=List(i)      List(i)=Temp    End If  Next jNext iEnd Sub 搜索字符串的函数是：InStr(Text, subStr) 访问Range里面的各个cell：Rgn As RangeDim mycell As RangeFor Each mycell In Rgn。。。。。。。Next mycell 返回链接的地址：GetAddress(Hyperlink) Function GetAddress(HyperlinkCell As Range)GetAddress=Replace(HyperlinkCell .Hyperlinks(1).Address,"mailto:","")End Function 静态随机函数：StaticRAND()  仅当用户强制刷新单元格才重新计算 循环体：For i=1 to FinalRow Step 10 ...Exit For ...Next iDo [While/Until]...Loop[While/Until] 对象变量及其历遍：Dim WSD As WorksheetDim Mycell As RangeDim PT As PivotTableSet WSD=ThisWorkbook.WorkSheets("Data")Set Mycell=WSD.Cells(Rows.Count,1).End(xlUp).Offset(1,0)Set PT=WSD.PivotTable(1)...For Each wb in Workbooks  If wb.WorkSheets(1).Name="Total" then    WBFound=True    WBName=wb.Name    Exit for  End IfNext wb 打开文本：Open "C:\1.txt" For Input As #1Do While Nor EOF(1)  Line Input #FileNumber,Data  Cells(r,1).Value=DataLoopClose #1 Case分支：Select Case Cells(i,1).Value  Case "Fist"...  Case 1 to 20...  Case "ok","well","good"...  Case Is>100...  Case Else...End Select 使用R1C1引用样式：“Excel选项”“公式”“R1C1引用样式”  相对引用：＝R[-1]C[-1]      =RC[-1]     绝对引用：=R2C2    混合引用：=R2C:R[-1]C

评论