Excel VBA質問箱 IV

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

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


41693 / 76732 ←次へ | 前へ→

【40118】Re:シートの貼り付け方方法
質問  質問(初心者A氏)  - 06/7/7(金) 9:16 -

引用なし
パスワード
   3行目の項目24番目が0502
で項目5番目がN265L009-1なら 
その行の1〜23番目の項目を
作業2のシートの3行目に貼り付けたい場合の処理で
 Range(cells(i,1):cells(i,23)).Selectに記述していいのか
 教えて下さい。
 お願いします。
  

i = 3
   
   Do While Cells(i, 24) <> "0502"
  
   If CStr(Cells(i, 5).Value) = "N265L009-1" Then
   
   '
   Range(cells(i,1):cells(i,23)).Select
  Selection.Copy
  Sheets("作業2").Select
  cells(i,1).select
  'Range("A2").Select
  ActiveSheet.Paste
   
   Else
    Exit Do
   
   End If
  
  
  i = i + 1
  
  Loop
  

0 hits

【40080】シートの貼り付け方方法 質問(初心者A氏) 06/7/6(木) 18:58 質問
【40082】Re:シートの貼り付け方方法 Statis 06/7/6(木) 19:29 発言
【40118】Re:シートの貼り付け方方法 質問(初心者A氏) 06/7/7(金) 9:16 質問
【40120】Re:シートの貼り付け方方法 ひげくま 06/7/7(金) 10:06 回答
【40129】Re:シートの貼り付け方方法 質問(初心者A氏) 06/7/7(金) 11:39 質問
【40131】Re:シートの貼り付け方方法 ひげくま 06/7/7(金) 11:44 発言
【40134】Re:シートの貼り付け方方法 質問(初心者A氏) 06/7/7(金) 13:21 質問
【40135】Re:シートの貼り付け方方法 ひげくま 06/7/7(金) 13:41 発言
【40138】Re:シートの貼り付け方方法 質問(初心者A氏) 06/7/7(金) 13:55 質問
【40139】Re:シートの貼り付け方方法 ひげくま 06/7/7(金) 14:02 発言
【40142】Re:シートの貼り付け方方法 質問(初心者A氏) 06/7/7(金) 14:48 質問
【40144】Re:シートの貼り付け方方法 ひげくま 06/7/7(金) 14:59 回答
【40145】Re:シートの貼り付け方方法 ひげくま 06/7/7(金) 15:04 発言
【40148】Re:シートの貼り付け方方法 質問(初心者A氏) 06/7/7(金) 15:35 お礼

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