|
▼困ったちゃん さんへ
適当に作ったやつなのですが参考にどうぞ
Option Explicit
Dim ACELL As Object
Dim Count As Integer '処理する行の数
Dim Count1 As Integer '処理する列の数
Const bbb = 1
Const ccc = 300 '処理する行の数
Const ddd = 2 '処理する列の数
'********************************************************************************
Sub 文字を上矢印に変換()
Set ACELL = ActiveCell
Set ACELL = ACELL.Offset(ccc, 0)
Count1 = 0
Do Until Count1 = ddd
Count = 0
Do Until Count = ccc
If (ACELL <> "") And (ACELL = ACELL.Offset(-bbb, 0)) Then ACELL = ""
Set ACELL = ACELL.Offset(-bbb, 0)
Count = Count + 1
Loop
Count1 = Count1 + 1
Set ACELL = ACELL.Offset(ccc, 1)
Loop
End Sub
|
|