Excel VBA質問箱 IV

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

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


46503 / 76732 ←次へ | 前へ→

【35199】Re:値を検索で行ごとコピー
回答  Kein  - 06/2/23(木) 17:02 -

引用なし
パスワード
   2006.2シートのAC列を作業列として数式を埋め込み、その結果から1162の入力された
行とB:D列が交差するセル範囲を特定・コピーし、立替金シートのB2以下に"すきまなく"
貼り付ける、というコードです。

Dim Sh As Worksheet

Set Sh = Worksheets("2006.2")
On Error GoTo ELine
With Sh.Range("AC3:AC140")
  .Formula = "=IF(ISERR(SEARCH(1162,$C3)),"""",1)"
  Intersect(.SpecialCells(3, 1).EntireRow, Sh.Range("B:D")) _
  .Copy Worksheets("立替金").Range("B2")
End With
ELine:
Set Sh = Nothing

10 hits

【35195】値を検索で行ごとコピー Help me!! 06/2/23(木) 16:05 質問
【35199】Re:値を検索で行ごとコピー Kein 06/2/23(木) 17:02 回答
【35203】Re:値を検索で行ごとコピー Help me!! 06/2/23(木) 17:37 質問
【35204】Re:値を検索で行ごとコピー Kein 06/2/23(木) 17:54 回答

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