常用内容

Sub Mergerng()
    Dim IntRow As Integer
    Dim i As Integer
    Application.DisplayAlerts = False
    With Sheet1
        IntRow =.Range("A65536").End(xlUp).Row
        For i = IntRow To 2 Step -1
            If .Cells(i, 2).Value = .Cells(i- 1, 2).Value Then
                .Range(.Cells(i - 1, 2),.Cells(i, 2)).Merge
            End If
        Next
    End With
    Application.DisplayAlerts = True

End Sub

Sub test()
    Dim maxRow As Integer
    With Sheet1
        maxRow = .Range("A60000").End(xlUp).Row
        For i = 1 To maxRow
            .Cells(i, 1) = Trim(.Cells(i, 1).Value)
        Next
    End With
End Sub

Sub test2()
  Dim rng As Range
  For Each rng In Sheet1.UsedRange
    With rng
      .Value = Trim(.Value)
    End With
  Next rng
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rng As Range
    Cells.Interior.ColorIndex = xlNone
    Set rng = Application.Union(Target.EntireColumn, Target.EntireRow)
    rng.Interior.ColorIndex = 24
End Sub

-- Associative Array
DECLARE
  -- Can not be declared in TYPE. The INDEX BY Pls_Integer. Integer is not allowed.
  TYPE language_asso_arr IS TABLE OF varchar2(10) INDEX BY Pls_Integer;
  langs language_asso_arr;
  i Pls_Integer;
BEGIN
  langs(1):='Java';
  langs(2):='VB';
  langs(7):='C++';
  
  i := langs.First;
  WHILE(i IS NOT NULL) LOOP
          dbms_output.put_line(langs(i));
          i := langs.Next(i);
  END LOOP;
END;