[[20190313210012]]　『A列と最終列を残して表示させたい。』（初心者です）　ページの最後に飛ぶ

『A列と最終列を残して表示させたい。』（初心者です）

A1からE1のように表が合って、E1は最終列なのですが、シートによってE列だったり、F列だったり、G列だったり、決まっていません。

A列と最終列だけを残して2列で表示させたいのですがどうすればいいでしょうか？

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

すいませんVBAでの話です。
（初心者です） 2019/03/13(水) 21:11

わからないところは、どこですか。

最終列の求め方はわかりますか。
列を非表示にすることはできますか。

（マナ） 2019/03/13(水) 21:54

返信ありがとうございます。

'一番右の列を取得する()

Dim r As Range
Set r = Range("A1").End(xlToRight) ' セル「A1」の右端のセルを取得

r.Select

'右端から一つ左のセルを取得

ActiveCell.Offset(0, -1).Activate

このときのアクティブのセルから、B1のセルまでを削除して右端だったセルがB1のセルになるようにしたいんです。

ちょっと説明不足かもしれませんがよろしくお願いします。
（初心者です） 2019/03/14(木) 10:50

 Sub test()

     Dim ws As Worksheet
     Dim LastCol As Long

     For Each ws In Worksheets
         LastCol = ws.Cells(1, Columns.Count).End(xlToLeft).Column
         If LastCol > 2 Then ws.Range(ws.Columns(2), ws.Columns(LastCol - 1)).Delete
     Next

 End Sub

 元が2列しかない場合は削除されません。
（bi） 2019/03/14(木) 11:10

ありがとうございました。
出来ました。

本当にありがとうございます。

（初心者です） 2019/03/14(木) 12:47

コメント返信：

[ 一覧(最新更新順) ]

[[20190313210012]] 『A列と最終列を残して表示させたい。』（初心者です） ページの最後に飛ぶ

[[20190313210012]]　『A列と最終列を残して表示させたい。』（初心者です）　ページの最後に飛ぶ