●EXCEL・VBA質問スレ Part2● at TECH

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
250:デフォルトの名無しさん 07/06/27 01:27:13 なんか昔、これの横バージョンを総合相談所のほうでコード書いた気がする… 251:デフォルトの名無しさん 07/06/27 01:52:19 横バージョンじゃなくて、似たような表の作成だった。 相談所55の部品表のをいじればなんとかなるんじゃないかな。 実行速度もシートをメモリに読み込んですれば大丈夫だろう。 もう寝る。 252:245 07/06/27 17:46:50 'Microsoft Scripting Runtime を参照設定 '結果はG,H,I列の1行目以下に出力 '結果出力用配列 出力行数を上回る行数を確保。下回るとエラー Dim ans(5000, 2) As String Dim d As New Scripting.Dictionary Dim v() As Variant Dim buf As Variant Dim vv As Variant Dim i As Long Dim n As Long v = Range("D1", Cells(Rows.Count, "E").End(xlUp)).Value For i = 1 To UBound(v) 　　If d.Exists(v(i, 1)) Then 　　　　d(v(i, 1)) = d(v(i, 1)) & vbTab & v(i, 2) 　　Else 　　　　d.Add v(i, 1), v(i, 2) 　　End If Next i v = Range("A1", Cells(Rows.Count, "B").End(xlUp)).Value

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4265日前に更新/289 KB
担当:undef