|
皆様
色々とご検討ありがとうございます。
B2-6.25 B4-6.31 B6-6.41 B8-6.62 B10-6.78・・・・とずっとあるのですが、
6.31は本当は6.30なのですが、巧くピックアップできないので、仮のお数字です。
小生のコードは以下の通りです。
Sub test()
Sheets("sheet3").Activate
Application.ScreenUpdating = False
Dim i As Double, k As Long, m As Long
For m = 3 To Cells(Rows.Count, 2).End(xlUp).Row + 1 Step 2
Rows(m).Interior.ColorIndex = xlNone
Next m
For k = 2 To 20 Step 2
i = Strings.Right(Cells(k, 2), 2) / 4 'この行のコードです
Range(Cells(k + 1, 3), Cells(k + 1, i + 2)).Interior.ColorIndex = 3
Next k
For m = 3 To 50 Step 2
Columns(m).Interior.ColorIndex = xlNone
Columns(m).ColumnWidth = 0.2
Columns(m + 1).ColumnWidth = 0.3
Next m
Application.ScreenUpdating = False
End Sub
よろしくお願いします。
|
|