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

エクセルVBAでよろしくお願いしますシートが6シートありその2シート...

エクセルVBAでよろしくお願いしますシートが6シートありその2シートから6シートまでのA1からA30までいろんな数字が入ってますそこでシート1のB列にシート2のA1からA30の数シート1のD列にシート3のA1からA30の数シート1のF列にシート4のA1からA30の数シート1のH列にシート5のA1からA30の数シート1のJ列にシート6のA1からA30の数というようにシート1に1列置きに2から6のシートを転記するにはどう書けばよいのでしょうか下のように書けば1列置きにシー2の数字ばかりの転記になりますよろしくお願いします For i = 2 To 6 Step 2 For k = 1 To 30 t = 2 Cells(k, i) = Sheets(t).Cells(k, 1) t = t + 1 Next k Next i
Yahoo!知恵袋 5274日前
コメントする
お気に入り
1
質問者が選んだベストソリューション
Sub test()Dim i As LongDim myR As RangeSet myR = Sheets(1).Range("B1")For i = 2 To 6myR.Resize(30, 1).Value = Sheets(i).Range("A1:A30").ValueSet myR = myR.Offset(, 2)NextSet myR = NothingEnd Subこんなやり方もあります。t=2の位置がおかしいんだと思いますよ。一番外にこなきゃいけないのでは?t=t+1もNext kの後かな。
Yahoo!知恵袋 5274日前
シェア
 
コメントする
 

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

Share (facebook)
その他の解決方法を知っていますか?
回答する
全般
85
Views
質問者が納得tumbler1001さんこんにちわ。。この質問に気づくのが遅れて、バタバタと対応しました。>参加人数が増えたり、人数が変動した場合~確かにこのあたりを考えなきゃ「汎用性」に欠けてます。。関数だけの処理はわたしには無理みたいなので、マクロ処理しました。。チーム組合せは、Sheet2の「1チームの人員」B1に数値入力してください。入力手順1.まず最初に「ALL削除」ボタンをクリックして、メッセージボックスも「OK」2.Sheet1のA列の「氏名」をすべて入力する。3.B列:1Gの得点をすべて入力する。4...
4951日前view85
全般
60
Views
質問者が納得遅くなりました。思い付くままに作った数式ですから改良の余地はあるでしょうが ↓の式をA1に入れて下へコピーしてみてください。式は必ず第一行目に入れて下へコピーしてください。添付図では B1 に入れました。(18)="B(t+"&ROW()&")=B(t"&IF(ROW()=1,"","+"&ROW()-1)&")+X(t"&IF(ROW()=1,"&q...
4950日前view60
全般
83
Views
質問者が納得2Dのオンラインゲームは出来ますが、3Dは最低クラスですオンラインゲーム用でしたら、各ショップが出してるゲームノートが良いですhttp://www.pc-koubou.jp/pc/note_geforce.phphttp://www.mouse-jp.co.jp/m-book/mbp/http://www.dospara.co.jp/5shopping/detail_prime.php?tg=13&tc=143&ft=&mc=1710&sn=67&st=1&v...
4953日前view83
全般
71
Views
質問者が納得商品の説明●表記サイズ: フリーサイズ ●素材:100%ポリエステル ●Tバック付き ●生地の伸縮:伸縮性あり ●カラー:Black登録情報発送重量: 41 gASIN: B003FDLKG2これをみると、パソコンではなくパソコンのケースではないでしょうか?41gで2000円のネットブックなんてありえません。
4968日前view71
全般
74
Views
質問者が納得I/Fは問題ないと思います。マイクスタンドは、この業界の定番はK&Mですが、CLASSIC PROも価格の割には悪くないと言われてますね。(現物はまだみたことないですが)マイクはSM58は、いい悪いは別として「定番」ではあります。BETA58Aは、音圧が稼げるので地声があまり大きくない方には向いています。SM58と比較すれば高音の抜けもいいようですが、価格がだいぶあがってしまいます。もしSM58に、より近い価格で高音の抜けがいいものをとお探しでしたら、AUDIXのOM3や、ZENNHEISERのE8...
4965日前view74

取扱説明書・マニュアル