質問: excel2013 vba a列とb列の文字をa列とb列とc列に移動させる方法 a列とb列に文字が入っているのですが、下記のようにa列とb列とc列に文字を移動させたいです。 (a列の数字は必ず奇数のa列に入っています。) vbaのコードを教えて下さい。 例えば a1 1 b1 cat a2 空白 b2 猫 a3 空白 b3 dog a4 空白 b4 犬 a5 2 b5 whale a6 空白 b6 クジラ a7 3 b7 rabbit a8 空白 b8 ウサギ とデータがある場合 a1 1 b1 cat c1 猫 a2 空白 b2 dog c2 犬 a3 2 b3 whale c3 クジラ a4 3 b4 rabbit c4 ウサギ としたいです。 実際、データは、a5196まであります。
回答: こんばんは! 一例です。 sub sample1() dim i as long, lastrow as long application.screenupdating = false for i = 2 to cells(rows.count, "b").end(xlup).row step 2 with cells(i, "b") .cut .offset(-1, 1) end with next i lastrow = cells(rows.count, "b").end(xlup).row range(cells(1, "b"), cells(lastrow, "b")) _ .specialcells(xlcelltypeblanks).entirerow.delete application.screenupdating = true end sub こんな感じではどうでしょうか?m(_ _)m