FC2ブログ


スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

串刺しネタでもう1個。

A列に番号を振っておいて、串刺しデータように列操作するVBA。
あとは先頭列を挿入するなどして、項目名を追加するコードを書いてテキスト化すれば、串刺しデータの完成。

Sub sample2()

Dim i As Integer, s As Integer, k As Integer, r As Integer
Dim tmp As Variant, bmp As Variant

k = 1
r = 1

For i = 1 To 15
s = Cells(i, 1)
Select Case s
Case Is = 2
tmp = Range(Cells(i, 1), Cells(i, 2)).Value
Range(Cells(i, 1), Cells(i, 2)).ClearContents
Range(Cells(k, 3), Cells(k, 4)) = tmp
k = k + 1

Case Is = 3
tmp = Range(Cells(i, 1), Cells(i, 2)).Value
Range(Cells(i, 1), Cells(i, 2)).ClearContents
Range(Cells(r, 5), Cells(r, 6)) = tmp
r = r + 1

End Select

Next i

End Sub
スポンサーサイト
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。