Excel VBA質問箱 IV

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

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


21 / 74623 ←次へ | 前へ→

【80246】Re:エラーが出ます
発言  マナ  - 18/11/29(木) 18:30 -

引用なし
パスワード
       ▼よろしくおねがいします さん:

>3シートから50シートまでの同じ表の数字を 提出データのシートに転記するには、

慣れないうちは。一つのシートについて最初に考えるとよいです。
こんな感じでしょうか。

Sub 転記2()
  Dim tenki As Long
  Dim i As Long
  Dim tenpo As Long
 

  tenki = 2   '転記データ2行目から
  
  i = 3
  
  '店舗データ5行目から入力行まで
  For tenpo = 5 To Worksheets(i).Range("b4").End(xlDown).Row
  
    Worksheets("提出データ").Range("c" & tenki).Value = Worksheets(i).Range("b" & tenpo).Value
    
    tenki = tenki + 1

  Next
 
End Sub

57 hits

【80245】エラーが出ます よろしくおねがいします 18/11/29(木) 16:25 質問[未読]
【80246】Re:エラーが出ます マナ 18/11/29(木) 18:30 発言[未読]
【80247】Re:エラーが出ます よろしくおねがいします 18/11/30(金) 14:14 質問[未読]
【80248】Re:エラーが出ます マナ 18/11/30(金) 18:12 発言[未読]
【80250】Re:エラーが出ます よろしくおねがいします 18/12/3(月) 16:52 質問[未読]
【80252】Re:エラーが出ます マナ 18/12/3(月) 19:41 発言[未読]

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