B列からAH列を条件付きでAutoFitしたいのですが、For Nextでうまく書けません

よろしくお願いします。いつもｇｏｏの皆さんには大変お世話になっています
エクセルは2013です
B列からAH列を条件付きでAutoFitしたいのですが、For Nextでうまく書けません
途中まで書いたマクロです

If Not Intersect(Target, Range("$O$40")) Is Nothing Then
Cancel = True
For i = 2 To 34 '列Bから列AHまでの
各列31行目がHまたはhでなければ、その列をAutoFit
Next i
End If

For Nextの間に日本語で書いた部分はマクロでどう書いたら良いでしょうか
どなたか教えてください

No.1 ベストアンサー 回答者： tom04 回答日時： 2016/11/20 01:19

こんばんは！

Sub Sample1()
Dim i As Long
For i = 2 To 34
If Cells(31, i) <> "H" And Cells(31, i) <> "h" Then
Columns(i).AutoFit
End If
Next i
End Sub

もしくは

Sub Sample2()
Dim i As Long
For i = 2 To 34
If UCase(Cells(31, i)) <> "H" Then
Columns(i).AutoFit
End If
Next i
End Sub

こんな感じではどうでしょうか？m(_ _)m

この回答へのお礼

tom04さん、こんばんは
いつもお世話になっております

こんな時間に教えていただいて恐縮です
Rangeを使っていたらうまくできませんでした

こんな時はCellsですね
気づきませんでした

まだまだ勉強がたりません
ありがとうございました

お礼日時：2016/11/20 01:58