空白を0に置換え。 SpecialCells EXCEL VBA [マクロ]
先日、可視セルでコピーする方法を書き込みましたが、
↓
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
SpecialCellsには他の使い方もあるようです。
以下は空白を零に置き換えるコードです。
Selection.SpecialCells(xlCellTypeBlanks).Value = 0
文字列の場合はこのようになります。
Selection.SpecialCells(xlCellTypeBlanks).Value = "XYZ"
クリック募金 各サイトに直接つながります。↓
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
SpecialCellsには他の使い方もあるようです。
以下は空白を零に置き換えるコードです。
Selection.SpecialCells(xlCellTypeBlanks).Value = 0
文字列の場合はこのようになります。
Selection.SpecialCells(xlCellTypeBlanks).Value = "XYZ"
http://www.cosmo-oil.co.jp/kankyo/charity/
http://www.able.co.jp/company/contribute/new-action/clickable/
http://kakaku.com/donation/
http://www.j-energy.co.jp/cp/society/click_tp.php
http://www.chintai.net/contribution/index.html
http://www.nittsu.co.jp/corporate/contribution/1click.html
http://www.daiichisankyo.co.jp/csr/clickdonation/index.html
http://www.nippn.co.jp/csr/unicef/oneclick.html
コメント 0