●EXCEL・VBA質問スレ ..
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
253:245 07/06/27 19:00:43 For i = 1 To UBound(v) If d.Exists(v(i, 1)) Then buf = Split(d(v(i, 1)), vbTab) For Each vv In buf ans(n, 0) = v(i, 1) ans(n, 1) = v(i, 2) ans(n, 2) = vv n = n + 1 Next vv Else ans(n, 0) = v(i, 1) ans(n, 1) = v(i, 2) n = n + 1 End If Next i Set d = Nothing Range("G1").Resize(n, 3).Value = ans 254:デフォルトの名無しさん 07/06/27 21:42:09 をいをいw 255:デフォルトの名無しさん 07/06/27 23:38:13 >>254 どうした？ 256:デフォルトの名無しさん 07/06/28 09:32:06 >>252 >>245関連ではないのだが、 > 'Microsoft Scripting Runtime を参照設定 > Dim d As New Scripting.Dictionary これってなに？VBAから、WSHのオブジェクトを呼び出しているわけ？ 257:デフォルトの名無しさん 07/06/28 17:31:08 すいません。質問です。 シート１のあるＡ１に「Ａ」、Ａ２に「Ｂ」、Ｂ１に「１」、Ｂ２に「２」が入っています。 シート２にはＡ１に「Ａ」、Ａ２に「３」、Ｂ１に「Ｂ」、Ｂ２に「４」が入っています。 シート１のＡ１の「Ａ」を検索した上でその下のセルにある「１」をシート２の「Ａ」の横にあるセルに入力し、且つそのセルにあった数値（ここでは３）を右にシフトしたいのです。 ＶＢではどうすればいいですか？
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
4275日前に更新/289 KB
担当:undef