エクセルの学校：全文検索：Hyper Estraier： 20��...

Results of 1 - 1 of about 19658 for 20��... (0.004 sec.)

[[20150308084901]]: #score: 2681; @digest: 276b5dada23042adf9daeda6196c62b1; @id: 67444; @mdate: 2015-03-12T00:30:45Z; @size: 3511; @type: text/plain; #keywords: 時台 (36743), test2down (22494), test2up (22494), 台", (21079), 台」 (14529), test2down2 (7748), 立使 (7380), noro (6412), 応前 (5545), 「** (4608), a40 (3085), 摘願 (2376), 行上 (2293), xlwhole (2140), 「20 (1709), がte (1673), 移動 (1654), lookat (1559), 行下 (1436), （no (1398), 独立 (1221), test1 (1095), 行結 (1035), clearcontents (954), 前回 (947), what (924), 見比 (878), resize (862), columns (736), ケー (692), offset (684), nothing (644); 『セル内容の移動』（noro）
(1)A列のあるセルに「20時台」という文字をみつけて、それをひとつ上のセルに移動させる。 (A40の「20時台」をA39に)(A40は不定なのでFindする) (2)A列のあるセルにある文字列「20時台」をみつけて次の行も含めて、1行上に2行ごと移す A40に「20時台」A41に「***」とあるものを、A39に「20時台」A40に「***」に移動させる。なお(2)の場合は、1行下にするケースもあります。すでに使用しているマクロに挿入したいので、その部分だけを教えていただけるとありがたいです。よろしくお願いします＜使用 Excel:Excel2013、使用 OS:Windows7 ＞ ---- 複数あったらどうしたいですか? 追加で。A1に20時台があったらどうしますか? さらに追加で。・「移動」とは? A40 を A39 へ。そのあと A40は空白にするということですか? ・「その部分だけ」とは、どの部分ですか? Find ですか? 「移動」ですか? と、質問しましたが、とりあえずコードを。要件の取り間違いあれば指摘願います。 (1)が Test1、(2)が Test2Up と Test2Down です。 Sub Test1() Dim c As Range Set c = Columns("A").Find(What:="20時台", LookAt:=xlWhole) If c Is Nothing Then Exit Sub If c.Row = 1 Then Exit Sub c.Offset(-1).Value = c.Value c.ClearContents End Sub Sub Test2Up() Dim c As Range Set c = Columns("A").Find(What:="20時台", LookAt:=xlWhole) If c Is Nothing Then Exit Sub If c.Row = 1 Then Exit Sub c.Offset(-1).Resize(2).Value = c.Resize(2).Value c.Offset(1).ClearContents End Sub Sub Test2Down() Dim c As Range Set c = Columns("A").Find(What:="20時台", LookAt:=xlWhole) If c Is Nothing Then Exit Sub c.Offset(1).Resize(2).Value = c.Resize(2).Value c.ClearContents End Sub （β） 2015/03/08(日) 09:03 ---- ありがとうございます。 A列に「20時台」というのはひとつしかなく、A1は4時台からはじまります。また、移動はそのとおり元の場所は空白になります。(2)のケースはA41が空白になります。その部分とはSubとかDimをはずして考えていました。SubとEnd Subの間をペーストすればいいだけの話でしたがこれだけで独立使用することになったため「その部分」は取り消します。とり急ぎご返事のみで今から試してみます。 ※試しました。これでうまくゆきました。ありがとうございました。（noro） 2015/03/08(日) 10:18 ---- 先日教えていただいたセル移動で、別のケースが出てしまったため、修正版で教えていただけるとありがたいです。「20時台」を見つけたら、その上の行との計2行を1段下の行に移動。（前回はその下の行) A30に「****」A31に「20時台」とあったら、A31に「****」A32に「20時台」(A30は空欄) よろしくお願いします。（noro） 2015/03/12(木) 07:39 ---- こんなことですか? Offset と Resize について、一度、何かで調べて習得しておかれたらよろしいかと。でなければ、こんどは3行上をどうこう、4行下にどうこうそのたびに、コードをお願いしますとそう質問することになりますよ。前回の Test1,Test2Up,Test2Down とあわせて、そのコードの違いと実行結果の違いを見比べそれを理解していたら、以下は自分でかけるはずですが? Sub Test2Down2() Dim c As Range Set c = Columns("A").Find(What:="20時台", LookAt:=xlWhole) If c Is Nothing Then Exit Sub c.Resize(2).Value = c.Offset(-1).Resize(2).Value c.Offset(-1).ClearContents End Sub （β） 2015/03/12(木) 08:53 ---- どうもすみません。一応前回のコードを見ながら色々書き込んで試してみたのですが、知識がないままにやっていたので下には移動できたものの2行がうまくゆかなかったのでお願いしてしまいました。今回との違いを比較しながら勉強したいと思います。ありがとうございました。（noro） 2015/03/12(木) 09:30 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201503/20150308084901.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ