« 2010年6月 | トップページ | 2010年10月 »

2010年8月の1件の記事

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。

« 2010年6月 | トップページ | 2010年10月 »

オススメサイト

最近のトラックバック

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      

忍者



無料ブログはココログ