Excel VBA質問箱 IV

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

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


49940 / 76732 ←次へ | 前へ→

【31688】Re:フォルダ内の資料を全て開いて閉じる...
回答  こたつねこ  - 05/11/28(月) 15:12 -

引用なし
パスワード
   まいさん、こんにちは

前の修正だと同一行に同じ値がある場合、重複して抽出されます
のでExit Forを追加してください。
失礼しました。

>      For i = 1 To UBound(myData, 1)
>        For j = 1 To 23
>          If myData(i, j) = "検索文字列" Then  '検索文字列を入力
>            
>            'ここから追加
>            For l = 1 To 23
>              wData(l) = myData(i, l)
>            Next
>            'ここまで追加
>            
>            'ここは変更
>            newWb.ActiveSheet.Range("A" & k & ":W" & k).Value = wData
>            'newWb.ActiveSheet.Rows(k) = myData
>            k = k + 1
            '↓を追加してください
            Exit For
>          End If
>        Next j
>      Next i
2 hits

【31560】フォルダ内の資料を全て開いて閉じる方法 まい 05/11/25(金) 15:35 質問
【31562】Re:フォルダ内の資料を全て開いて閉じる方法 Kein 05/11/25(金) 15:46 回答
【31563】Re:フォルダ内の資料を全て開いて閉じる方法 ちくたく 05/11/25(金) 15:48 回答
【31564】Re:フォルダ内の資料を全て開いて閉じる... まい 05/11/25(金) 16:11 質問
【31566】Re:フォルダ内の資料を全て開いて閉じる... ちくたく 05/11/25(金) 16:42 回答
【31600】Re:フォルダ内の資料を全て開いて閉じる... まい 05/11/26(土) 12:14 質問
【31681】Re:フォルダ内の資料を全て開いて閉じる... こたつねこ 05/11/28(月) 13:37 回答
【31687】Re:フォルダ内の資料を全て開いて閉じる... ちくたく 05/11/28(月) 15:09 お礼
【31689】Re:フォルダ内の資料を全て開いて閉じる... こたつねこ 05/11/28(月) 16:04 発言
【31688】Re:フォルダ内の資料を全て開いて閉じる... こたつねこ 05/11/28(月) 15:12 回答

49940 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free