エクセルのVBAについて

質問

エクセルのVBAである行の最終セルを調べるのと、列を一列消去するような関数はあるのでしょうか？本を読んでものっていませんでした。わかる方よろしくおねがいします。

回答No.4

shishishishi · ベストアンサー

shishishishiです、こんばんは。
先ほどの質問の続きですね。

先ほどと列と行を入れ替えるとこんな具合になります。

Sub TEST()
x = Cells(1, Columns.Count).End(xlUp).End(xlToLeft).Column
MsgBox x
For n = x To 1 Step -1
If Cells(1, n).Value = Replace(Cells(1, n).Value, "F", "") _
And Cells(1, n).Value = Replace(Cells(1, n).Value, "f", "") _
And Cells(1, n).Value = Replace(Cells(1, n).Value, "G", "") _
And Cells(1, n).Value = Replace(Cells(1, n).Value, "g", "") Then Columns(n).Delete
Next
End Sub

お礼

ありがとうございます。作ろうとしていたプログラムがほぼ出来上がりました。ありがとうございました。

回答No.3

error123

熱心ですね。ごくろうさま。
これでいかがですか？

Sub TEST05()
x = Cells(1, ActiveSheet.Columns.Count).End(xlToLeft).Columns
MsgBox "最終列は" & x & "列目です。削除します。"
Columns(x).Delete
End Sub

もし、１行目でないのであれば、x = Cells(1,　の数字を変えてください。

回答No.2

taocat

Sub Test()

Dim LastCell As Range
Dim R As Long
Dim C As Integer

'３行目の最終セル（最終列のセル）

R = 3
Set LastCell = Range("IV" & R).End(xlToLeft)
MsgBox LastCell.Address

'８列目の削除

C = 8
Cells(1, C).EntireColumn.Delete

End Sub

以上。

回答No.1

TT_TT

下記のようなので出来ませんか？

'行の最終セルに移動
election.End(xlDown).Select
'メッセージボックスで最終行番号表示
msgbox Selection.Row
'Ａ列選択
Columns("A:A").Select
'選択列の削除
Selection.Delete Shift:=xlToLeft