列に値が入っている最後の列番号を取得（数式のみの列は含めない）

前提・実現したいこと

Max_Row = UsedCell.Cells(UsedCell.Count).row
でワークシート上の最後の列番号を取得しているいるのですが、
数式だけが入っている列もカウントしてしまう。
実際の値が表示されている所までカウントしたい場合はどうしたらいいのでしょうか？
当方VBA初心者です。

ttyp03

2020/06/19 01:46

「数式のみ」とはどういうことでしょうか？セルには「値」か「数式」かのどちらかです。両方が入ることはありません。「数式の列は含めない」ということでしょうか？

yoshino200618

2020/06/21 05:09

返信がおくれて申し訳ございません。表現があいまいですみませんでした。おっしゃる通り数式列は含めいないということです。

行動規範の内容に同意します

回答1件

ベストアンサー

1行目がこんな感じだったとして

	A	B	C	D	E
1	a1	b1	d1
2	a2	=IF(B1="","",B1)	=IF(C1="","",C1)

見かけは

	A	B	C	D	E
1	a1	b1	d1
2	a2	b1

となります。

VBA
1    Dim ws As Worksheet
2    
3    Set ws = ThisWorkbook.Sheets("Sheet1")
4    '１行目の有効列を表示
5    Debug.Print "１行目の有効列 = " & ws.Rows(1).Find(What:="*", LookIn:=xlValues, SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Column
6    '２行目の有効列を表示
7    Debug.Print "２行目の有効列 = " & ws.Rows(2).Find(What:="*", LookIn:=xlValues, SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Column
8