Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

11759 / 76807

←次へ　｜　前へ→


	【70580】初心者ですいません

まさ - 11/12/4(日) 11:12 -


	引用なし

	パスワード

　　Range("B3").Select
　　ActiveCell.FormulaR1C1 = "=IF(RC[11]="""","""",MID(RC[11],1,FIND("" "",RC[11],1)-1))"
　　Range("B4").Select
　　ActiveCell.FormulaR1C1 = "=IF(R[1]C[11]="""","""",R[1]C[11])"
　　Range("B5").Select
　　ActiveCell.FormulaR1C1 = "=IF(R[2]C[11]="""","""",MID(R[2]C[11],1,FIND("" "",R[2]C[11],1)-1))"
　　Range("B6").Select
　　ActiveCell.FormulaR1C1 = "=IF(R[3]C[11]="""","""",R[3]C[11])"
　　Range("B7").Select
　　ActiveCell.FormulaR1C1 = "=IF(R[4]C[11]="""","""",MID(R[4]C[11],1,FIND("" "",R[4]C[11],1)-1))"
　　Range("B8").Select
　　ActiveCell.FormulaR1C1 = "=IF(R[5]C[11]="""","""",R[5]C[11])"
　　Range("B9").Select
　　ActiveCell.FormulaR1C1 = "=IF(R[6]C[11]="""","""",MID(R[6]C[11],1,FIND("" "",R[6]C[11],1)-1))"
　　Range("B10").Select
　　ActiveCell.FormulaR1C1 = "=IF(R[7]C[11]="""","""",R[7]C[11])"
　　Range("B11").Select
　　ActiveCell.FormulaR1C1 = "=IF(R[6]C[11]="""","""",MID(R[8]C[11],1,FIND("" "",R[8]C[11],1)-1))"
　　Range("B12").Select
　　ActiveCell.FormulaR1C1 = "=IF(R[7]C[11]="""","""",R[9]C[11])"
　　Range("B13").Select
　　ActiveCell.FormulaR1C1 = "=IF(R[6]C[11]="""","""",MID(R[10]C[11],1,FIND("" "",R[10]C[11],1)-1))"
　　Range("B14").Select
　　ActiveCell.FormulaR1C1 = "=IF(R[7]C[11]="""","""",R[11]C[11])"

このようなデータがB1000くらいまでに続いています。

うまくまとめるにどうしたらいいでしょうか？

あと、もうひとつあるのですが

　 A　 B　 C　 D
1　　名前
2　　性別
3　　歳
4　　性格
5　　名前
6　　性別
7　　歳
8　　性格
　　　・
　　　・
　　　・
　　　・
のようなデータがこちらもB1000位まであるのですが、
名前と歳だけを別のシートに並べたいのですが、どうすればよいでしょうか？

どなたかご教授ください。

よろしくお願いいたします。

3 hits

▼

【70580】初心者ですいません まさ 11/12/4(日) 11:12

≪