archive: 2016年12月  1/1

複数の列をループで処理する @VBA

No image

複数の列を行方向にループさせたい場合は、こんな感じ。 Set tmp_sheet = Sheets("Sheet1") Set tmp_range = tmp_sheet.Range("F:H,J:J") last_row = ... ' 最終行 For r = 3 To last_row For Each tmp_area In tmp_range.Areas ' Range の Area For c = 1 To tmp_area.Columns.Count Set cell = tmp_area.Cells(r, c) real_r = cell.Row ' セルの行 real_c = cell.Column...