最終列と最終行を組み合わせて全てのセルに対して処理を行う。 Sub wrk() Dim i As Long Dim j As Long For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column Cells(i, j).Interior.ColorIndex = 6 …
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。