Excel新聞 〜エクセルで作ったゲームであそぼ★〜

	最終行取得　（A列）
	MsgBox Worksheets("Sheet1").Range("A" & CStr(Rows.Count)).End(xlUp).Row

	最終列取得　（１行目）
	MsgBox Worksheets("Sheet1").Cells(1, Columns.Count).End(xlToLeft).Column

	セルの結合
	Worksheets("Sheet1").Range("A1:C10").MergeCells = True

	セルの結合解除
	Worksheets("Sheet1").Range("A1:C10").MergeCells = False

	セルに数式があるか確認。あればTrue・なければFalse
	MsgBox Worksheets("Sheet1").Range("A1").HasFormula

	セルの巾を自動調整　（A〜H列）
	Worksheets("Sheet1").Columns("A:H").AutoFit

	セルに数値を設定
	Worksheets("Sheet1").Range("A1").Value = 10000

	セルに文字列を設定
	Worksheets("Sheet1").Range("A1").Value = "hinekure"

	セルに数式を設定　（TODAY)
	Worksheets("Sheet1").Range("A1").Formula = "=TODAY()"

	セルにコメントを設定
	Worksheets("Sheet1").Range("A1").AddComment "hinekure"

	セル範囲に名前を定義
	Worksheets("Sheet1").Range("A1:C10").Name = "hinekure"

	セルの値を取得
	MsgBox Worksheets("Sheet1").Range("A1").Value

	セルの値をクリア
	Worksheets("Sheet1").Range("A1").ClearContents

	セルのコメントを削除
	Worksheets("Sheet1").Range("A1").ClearComments

	セルのコピー、貼り付け
	Worksheets("Sheet1").Range("A1:A3").Copy Worksheets("Sheet1").Range("B1")