In diesem Beispiel wird die Schriftart der ersten Spalte (Spalte A) in Sheet1 fett formatiert.
Worksheets("Sheet1").Columns(1).Font.Bold = True
Dieses Beispiel setzt den Wert aller Zellen in der ersten Spalte im Bereich "MyRange" auf 0 (Null).
Range("myRange").Columns(1).Value = 0
Im folgenden Beispiel wird die Anzahl der Spalten in der Markierung in Sheet1 angezeigt. Sind mehrere Bereiche markiert, werden alle Bereiche in einer Schleife bearbeitet.
Worksheets("Sheet1").Activate
areaCount = Selection.Areas.Count
If areaCount <= 1 Then
MsgBox "The selection contains " & _
Selection.Columns.Count & " columns."
Else
For i = 1 To areaCount
MsgBox "Area " & i & " of the selection contains " & _
Selection.Areas(i).Columns.Count & " columns."
Next i
End If