Gizport
1 回答
0
Share (facebook)
78
view
全般

エクセルのマクロ(VBA)の質問です。 マクロ初心者です。sheet...

エクセルのマクロ(VBA)の質問です。 マクロ初心者です。sheet1のA1からA500までに【1234-56789】のような10桁(ハイフン含み)の数字が入力されています。
その中に、1234-567A8や1234-567B8等の9桁目にABC等の文字を含んだ値が入力されている行があります。その文字を含んだ値が入力された行を検索し、例)としてA400にそのDataが存在した場合、400行目のData(A列~AZ列)までをコピーしA510(510行目)へ貼り付け、400行目を削除する。

また、A1からA500までにABC等の文字を9桁目に含んだ値のセルが以下の10個あったとします。
2222-111A1
1234-567A8
2222-111C1
1111-000A0
2222-111B1
1111-000B0

上記のA1~A500にバラバラに配置されているのを、行をコピーし510行目以下に貼り付ける際に、以下のように並べ替えて貼り付ける事は可能でしょうか?

1234-567A8
1234-567B8
1111-000A0
1111-000B0
2222-111A1
2222-111B1
2222-111C1

上記の様なマクロを作成するにはどのようなコードを入力すれば良いのでしょうか?

宜しく御教授お願い致します。
Yahoo!知恵袋 5018日前
コメントする
お気に入り
1
質問者が選んだベストソリューション
> A1からA500までに~

> A510(510行目)へ貼り付け、
> 400行目を削除する

文字を含むデータと含まないデータの間に
空白行を9行挿入し、全体を509行とする、
と想定します。
(違う場合は適宜変更して下さい)


-------------------------------------------
作業列を2列挿入します(例えばB列・C列)

B列には1から順に500まで入力(フィル)

C1
=IF(ISERR(MID(A1,9,1)*1),1,0)

C500までフィル

C501~C509に「0」を入力

C列・A列昇順で並べ替え

C列を削除

B列昇順に並べ替え

B列を削除
-------------------------------------------


こんな感じでしょうか。

これらの作業を「マクロ記録」してみると良いかと思います。


参考までに。
Yahoo!知恵袋 5018日前
シェア
 
コメントする
 

参考になったと評価
  このQ&Aは参考になりましたか?

Share (facebook)
その他の解決方法を知っていますか?
回答する
全般
74
Views
質問者が納得ドライバはインストールしましたか? 基本的な初期設定されてますか? パソコンが何かにもよりますしね。
4622日前view74
全般
62
Views
質問者が納得B2に以下のように入力して、B22までコピーして下さい。 =INDEX(Sheet1!$A$101:$A$150,INT(RAND()*50)+1) 表示させたい範囲を変更する場合は Sheet1!$A$101:$A$150 の"101"と"150"の部分をそれぞれ変更。同時に、RAND()*50 の"50"を単語の数(例では101~150までの50単語)に合わせて修正し、その修正した関数を再度B22までコピーして下さい。
4661日前view62
全般
68
Views
質問者が納得ICONIA TAB の W ならタブレットPC ですが、 Aシリーズはタブレット端末ってヤツですね。 >ノートPCと同じくネットが見れると考えてよいのでしょうか? むりです。 パソコンではなく、携帯電話の親戚です。 補足 3Gは積んでないので、勝手に通信はしません。 無線ランは持ってますよね? 無いと、インターネットとかできませんけど。
4671日前view68
全般
81
Views
質問者が納得【無線LAN Q&A情報】を参考にして下さい。 http://buffalo.jp/qa/wireless/index-airstation-01.html バッファロー、アンドロイド端末をワンタッチでWi-Fi接続できる「AOSS for Android」の提供を開始 AOSS for Androidは、バッファロー独自の無線LAN簡単設定システムである。 「AOSS」をアンドロイド端末からでも実行できるようにするアプリで、バッファロー製 無線LANルーターとのWi-Fi接続をボタンひとつで行う...
4711日前view81
全般
108
Views
質問者が納得IS03で(PdaNet使って)USBテザリング出来るのはPCが対象。WiFiテザリング使って下さい。あと、PdaNet入れるのはIS03の方だけどPdaNetの使用レビューをよく見てヒントを先に探しておいた方が良いかと。Web上で紹介している記事も有ります。→http://www.google.co.jp/search?hl=ja&source=hp&q=pdanet+is03&lr=&gbv=2&oq=pdanet+is03>捕捉IS03だとwifiテザリン...
4741日前view108

取扱説明書・マニュアル

1150view
http://fujifilm.jp/.../ff_finepixa400a500_mn_j100.pdf
148 ページ3.72 MB
もっと見る

関連製品のQ&A