質問

2016年03月24日 19時15分
  • Excelについてのご質問

情シスのオープンナレッジ『Syszo』サービス終了のお知らせ

質問

Excelを利用して下記の仕組みを作りたいのですが可能でしょうか?
どなたかアドバイスの程、よろしくお願いいたします。

〇 明日の午後15:00までに何かしらのアドバイスがでると有難いです。

〇 Excelバージョン: Excel2010

〇 やりたいこと
対象のSheet1から別のSheet2へデータを抽出し、下記の条件に沿って動作するようにしたいです。※Sheetは同一ファイルを想定しています。
・数値が0ならば抽出先のセルを1行左に詰める。
・数値が1以上ならば何もしない。

以上、何卒よろしくお願いいたします。

5件の回答があります

回答

マクロで可能だと思いますよ。

2016年03月24日 19時27分

回答

可能だと思います。
VBAでプログラミングしてしまうのでが一番かと!

2016年03月24日 19時30分
P

回答

0のみを除去するということであれば。

1.sheet2上で"0"を「すべて検索」
2.検索結果を全選択(検索ダイアログでCtrl + A)
3.選択状態を保ったままセルの削除 -> 左方向にシフト

でどうでしょう?

2016年03月24日 21時55分

回答

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

2016年03月25日 12時59分

回答

>みなさま
参考になるアドバイスありがとうございました。
VBAで簡単なプログラムを作りたいと思います!

>こーじさん
いただいた構文も是非、参考にさせていただきます!

あなたもコメントしましょう!