1. 程式人生 > >Excel 批量修改列內容的指令碼

Excel 批量修改列內容的指令碼

1、例如,將 A列的字串中的2008換成2009

建立一個巨集test

Sub test()
Dim r As Range
For Each r In Range("a:a").SpecialCells(xlCellTypeConstants)
      r = replace(r.Value,"2008","2009")
Next
End Sub

2、例如,將B1 至 C200 的一個矩形塊內的單元格字串中轉成大寫

建立一個巨集test

Sub test()
Dim r As Range
For Each r In Range("b1:c200").SpecialCells(xlCellTypeConstants)
      r = ucase(r.Value)
Next
End Sub