Sub ChangeToValue()
With Worksheets("Sheet1").Range("A1:B3")
.Value = .Value
End With
End Sub
文字色の変更
指定したセルの文字色を変更する
Sub FontColor()
' 自動(黒)に変更する
Cells(1, 1).Select
With Selection.Font
.ColorIndex = xlAutomatic
End With
' 赤に変更する
Cells(1, 2).Select
With Selection.Font
.ColorIndex = 3
End With
End Sub
最終行数の取得
使用済みセルの最終行数を取得する
Sub test()
Dim numOfLastRow
Call getNumOfLastRow(numOfLastRow)
MsgBox (numOfLastRow)
End Sub
Function getNumOfLastRow(numOfLastRow)
Dim r As Range
Set r = ActiveSheet.usedRange
Dim usedRange As Range
Set usedRange = Rows(r.Row + r.Rows.Count - 1)
numOfLastRow = usedRange.Row
End Function