Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

14911 / 76734

←次へ　｜　前へ→


	【67309】Re:月が変わったらその列を削除したい

SK63 - 10/11/23(火) 3:41 -


	引用なし

	パスワード

▼あきさん：

流れ的にはこのようにしますが、ループ等はFORでなくてもよいです。
隣同士のセルの月を比べる　Month(Cells(1, ret))
違ったら削除する.　　　　 Columns(ret).Delete Shift:=xlToLeft
列がずれるのでretを引く
Cells(1, ret) = ""になるまでか35まで繰り返す。

Sub test()

Dim ret As Integer

For ret = 5 To 35

If Month(Cells(1, ret - 1)) <> Month(Cells(1, ret)) Then
If Cells(1, ret) = "" Then
　 Exit For
Else
　　Columns(ret).Delete
　　ret = ret - 1
End If
End If

Next ret

End Sub

2 hits

▼

【67307】月が変わったらその列を削除したい あき 10/11/22(月) 20:49