VBA 初心者練習用です
問題文
ふりがな非表示
ふりがな表示
(ｃｏｌｕｍｎｓ（”ａ：ｂ”）)
columns("A:B")
(ｒａｎｇｅ（”ｄ２”）．ｃｕｒｒｅｎｔｒｅｇｉｏｎ．ｓｅｌｅｃｔ)
Range("D2").CurrentRegion.Select
(ｒａｎｇｅ（”ｄ２”）．ｃｕｔ ｒａｎｇｅ（”ａ１０”）)
Range("D2").Cut Range("A10")
(ａｐｐｌｉｃａｔｉｏｎ．ｃｕｔｃｏｐｙｍｏｄｅ ＝ ｆａｌｓｅ)
Application.CutCopyMode = false
(ｒａｎｇｅ（”ａ１０：ｂ１２，ｄ１０：ｅ１２”）．ｃｌｅａｒ)
Range("A10:B12,D10:E12").Clear
(ｍｓｇｂｏｘ ｒａｎｇｅ（”ａ２：ａ１０”）．ｒｏｗｓ．ｃｏｕｎｔ)
MsgBox Range("A2:A10").Rows.count
(ｒａｎｇｅ（）．ｃｕｒｒｅｎｔｒｅｇｉｏｎ．ｃｏｐｙ ｒａｎｇｅ（）)
Range().CurrentRegion.Copy Range()
(ａｃｔｉｖｅｓｈｅｅｔ．ｐａｓｔｅ ｒａｎｇｅ（”ｄ２，ａ７，ｄ７”）)
ActiveSheet.Paste Range("D2,A7,D7")
(．ｃｕｒｒｅｎｔｒｅｇｉｏｎ．ｒｏｗｓ．ｃｏｕｎｔ)
.CurrentRegion.Rows.Count
(．ｃｕｒｒｅｎｔｒｅｇｉｏｎ．ｃｏｌｕｍｎｓ．ｃｏｕｎｔ)
.CurrentRegion.Columns.Count
(ｃｏｌｕｍｎｓ（”ａ，ｂ”）)
columns("A,B")
(ｃｏｌｕｍｎｓ（”ｄ：ｅ”）．ｈｉｄｄｅｎ ＝ ｔｒｕｅ)
Columns("D:E").Hidden = True
(ｃｏｌｕｍｎｓ（”ｄ：ｅ”）．ｈｉｄｄｅｎ ＝ ｆａｌｓｅ)
Columns("D:E").Hidden = False
(ｃｏｌｕｍｎｓ（”ｄ：ｅ”）．ｄｅｌｅｔｅ)
Columns("D:E").Delete
(ｒｏｗｓ（”６：８”）．ｄｅｌｅｔｅ)
Rows("6:8").Delete
(ｃｏｌｕｍｎｓ（””）．ｉｎｓｅｒｔ ｘｌｓｈｉｆｔｔｏｒｉｇｈｔ)
Columns("").Insert xlShiftToRight
(ｒｏｗｓ（””）．ｉｎｓｅｒｔ ｘｌｓｈｉｆｔｄｏｗｎ)
rows("").Insert xlShiftDown
(ｓｅｌｅｃｔｉｏｎ．ｅｎｔｉｒｅｒｏｗ．ｓｅｌｅｃｔ)
Selection.EntireRow.Select
(ｓｅｌｅｃｔｉｏｎ．ｅｎｔｉｒｅｃｏｌｕｍｎ．ｓｅｌｅｃｔ)
Selection.EntireColumn.Select