EXCELシートの振り分け転記の自動化について

質問

こんにちは、excel初心者です。

あるexcelシートの中に、数字コードが書いてあるボックス？の中に2種類か、3種類のそれぞれアルファベットコードと表題がそれぞれ書いてあります。

これを別シートにそれぞれの数字コードとアルファベットコードと表題に見やすくするために振り分けたいのですが、
いちいち一つ一つのセルをコピーペストの繰り返しで膨大な時間が掛かりました。

マクロVBAの本を読みましたが、その”数字コードボックス”のアルファベットコードの種類が2，3，4種類と順不同です。

これらの順不同型のセルの塊を自動転記は可能でしょうか？

自動化のイメージとしては、
1；B2セル数字コードを選択、コピー、別シートの数字コード列に移動、貼り付け。
2；元シートにかえって、A5アルファベットコードを選択、コピー、別シートのアルファベットコード列に移動、貼り付け。
3；元シートにかえって、A4表題を選択、コピー、別シートの表題列に移動、貼り付け。
4；元シートにかえって、A8アルファベットコードを選択、コピー、別シートのアルファベットコード列に移動、貼り付け。
5；元シートにかえって、A7表題を選択、コピー、別シートの表題列に移動、貼り付け。
6;元シートにかえって、A11アルファベットコードを選択、コピー、別シートのアルファベットコード列に移動、貼り付け。
7;元シートにかえって、A10表題を選択、コピー、別シートの表題列に移動、貼り付け。―と

8;元シートにかえって、12行B列の数字コードを感知したら、11から２行はすべて削除。
9；次の”数字コードボックス”に移動します。

自分で考えてイメージしただけなのですが、この様な事は可能でしょうか？
また、マクロに書くコードはどのようなコードをかけば良いでしょうか？
しょ
初心者なりに必死に考えてみましたが、聞いた方が速いと思いこちらにご相談させて頂きました。
何卒宜しくお願い致します。

回答No.3

nekotaro3 · ベストアンサー

自動転記のイメージ作りのためのサンプルです。
テスト用の新規ブックのシート１のA列に適当な文字データを貼り付けるなりしてください。（大量にあった方がイメージがつかみやすいと思います。）

このコードではシート１のA列から
「川」という文字を含むセルの値を、シート2のA列に順番に転記します。
「田」という文字を含むセルの値を、シート2のB列に順番に転記します。
最初の文字が「田」のセルの値を、シート2のC列に順番に転記します。
文字の長さが５文字のセルの値を、シート2のD列に順番に転記します。

コード内の「田」と「山」を違う文字に置換して実行すれば、その文字で抽出転記します。

手作業だとシート１とシート２を行ったり来たりしなければなりませんが、マクロコードなら一瞬で終わります。

Sub Test()
Dim i
Dim Sh1 As Worksheet
Dim Sh2 As Worksheet

Set Sh1 = Sheets(1)
Set Sh2 = Sheets(2)
Sh2.Cells.Clear

With Sh1
For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
If InStr(.Cells(i, 1), "川") <> 0 Then
Sh2.Cells(Rows.Count, 1).End(xlUp).Offset(1) = .Cells(i, 1)
End If

If InStr(.Cells(i, 1), "田") <> 0 Then
Sh2.Cells(Rows.Count, 2).End(xlUp).Offset(1) = .Cells(i, 1)
End If

If Left(.Cells(i, 1), 1) = "田" Then
Sh2.Cells(Rows.Count, 3).End(xlUp).Offset(1) = .Cells(i, 1)
End If

If Len(.Cells(i, 1)) = 5 Then
Sh2.Cells(Rows.Count, 4).End(xlUp).Offset(1) = .Cells(i, 1)
End If
Next

End With

End Sub

お礼

具体的にコードまで書いていただき誠にありがとうございました。sohoさんに聞いてみます。このコードを元にアレンジして見ます。

回答No.2

shintaro-2

#1さんの回答にある通り、自動化は可能です。

具体的な表をイメージできないのですが

別の方法として、
１．シート全体をコピー
コピーしたシートでデータを修正
具体的には
２．C列にA列を１行ずらしてコピー
これによりA５とC5（もとはA４）が紐付
３．B列の空欄があればそこに上のセルのデータをコピー
（CTRL+Gで空白セルを選択後＝キー↑キー　CTRL+リターン）
４．B列を選択して値のみコピー
５．最後に全体をA列でソート
表題とアルファベットに分かれるので、表題行を削除
６．必要であれば新規にピボットテーブルを作成し、好きなようにまとめる

具体的なもとの表のイメージを
画像として貼るか
　　A,B　　
１　abc,あああ
２　123,いいい
３　456,ううう
とか提示してもらえれば、もっと良い回答が付くかもしれません。

お礼

具体的アドバイス誠にありがとうございました。sohoさんに、聞いてみます。

回答No.1

catpow

>>自分で考えてイメージしただけなのですが、この様な事は可能でしょうか？

質問のように、きっちりと手順化できていれば、それをＶＢＡのプログラムにできます。

>>また、マクロに書くコードはどのようなコードをかけば良いでしょうか？

マクロはＶＢＡに変換されています。マクロ作成のみでは、たぶんやりたいことはできないと思います。
マクロで自動生成されたＶＢＡのプログラムをベースにして、そのプログラムを修正し、自分の行いたい処理を追加すれば、たぶん可能です。

マクロではなく、ＶＢＡプログラムの知識が、それなりに必要となります。

お礼

ご回答ありがとうございました。