質問
0のみを除去するということであれば。
1.sheet2上で"0"を「すべて検索」
2.検索結果を全選択(検索ダイアログでCtrl + A)
3.選択状態を保ったままセルの削除 -> 左方向にシフト
でどうでしょう?
canさんの手順に似てますがご参考までに。
選択範囲内の 0 を左詰めします。
Sub Macro1()
'
' Macro1 Macro
'
'
Selection.Replace What:="0", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlToLeft
End Sub
質問
Excelを利用して下記の仕組みを作りたいのですが可能でしょうか?
どなたかアドバイスの程、よろしくお願いいたします。
〇 明日の午後15:00までに何かしらのアドバイスがでると有難いです。
〇 Excelバージョン: Excel2010
〇 やりたいこと
対象のSheet1から別のSheet2へデータを抽出し、下記の条件に沿って動作するようにしたいです。※Sheetは同一ファイルを想定しています。
・数値が0ならば抽出先のセルを1行左に詰める。
・数値が1以上ならば何もしない。
以上、何卒よろしくお願いいたします。