« さよならVAIO。久しぶりThinkpad T410s。 | トップページ | LUMIX G VARIO 7-14mmで夜の横浜赤レンガ倉庫撮ってきた »

2010年8月 6日 (金)

【Excel VBA】1列にまとまったデータを2列に分ける

こんなときに使用。

Vba1

こんな感じで縦に並んでいるデータを2列に分けてくマクロ。
1F、2Fのデータが混在してるのを、A列には1F、B列には2Fにするとか(謎

Vba2

実行後はこんな感じ。

 

VBAはコレ。

Sub Macro1()
    Range("A2").Select
   
    Do Until ActiveCell = ""
        Selection.Cut
        ActiveCell.Offset(-1, 1).Select
        ActiveSheet.Paste
        ActiveCell.Offset(1, 0).Select
        Selection.EntireRow.Delete Shift:=xlUp
        ActiveCell.Offset(1, -1).Select
    Loop
End Sub

全く整理してないけど、動くのでOK。

« さよならVAIO。久しぶりThinkpad T410s。 | トップページ | LUMIX G VARIO 7-14mmで夜の横浜赤レンガ倉庫撮ってきた »

Excel VBA」カテゴリの記事

コメント

コメントを書く

(ウェブ上には掲載しません)

トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/182227/49075924

この記事へのトラックバック一覧です: 【Excel VBA】1列にまとまったデータを2列に分ける:

« さよならVAIO。久しぶりThinkpad T410s。 | トップページ | LUMIX G VARIO 7-14mmで夜の横浜赤レンガ倉庫撮ってきた »

オススメサイト

最近のトラックバック

2017年5月
  1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31      

忍者



無料ブログはココログ