2018年3月16日金曜日

【マクロ】色が付いたセル以外の値を消す。

✦色が付いたセル以外の値を消す。
 残したいセルを色を付けてマーキングし、それ以外を消す。

For i = 2 To 15
  For j = 1 To 7
   If Cells(i, j).Interior.ColorIndex = xlNone Then
     Cells(i, j).ClearContents
    'Else
End If
Next
Next

0 件のコメント:

コメントを投稿