Excel VBA質問箱 IV

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

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


5695 / 76732 ←次へ | 前へ→

【76644】Re:複数のシートの転記について
発言  マナ  - 15/2/22(日) 16:49 -

引用なし
パスワード
   統合のほうが簡単かも。

Sub test2()
 Dim 統合先 As Range, 統合元 As Range
  Dim s As String
  Dim ws As Worksheet
  Dim r As Long
  
  For Each ws In Worksheets
  
    If ws.Name Like "*単価" Then
      
      Set 統合元 = ws.Range("A1").CurrentRegion.Offset(, 1).Resize(, 4)
    
      s = Left(ws.Name, 6)
      With Worksheets(s)
        r = .Range("C" & .Rows.Count).End(xlUp).Row
        Set 統合先 = .Range("C3:C" & r)
      End With

      統合先.Consolidate _
        Sources:=統合元.Address(ReferenceStyle:=xlR1C1, External:=True), _
        Function:=xlSum, _
        TopRow:=True, _
        LeftColumn:=True
      
    End If
  Next
  
End Sub
264 hits

【76641】複数のシートの転記について ももかん 15/2/22(日) 14:28 質問[未読]
【76642】Re:複数のシートの転記について マナ 15/2/22(日) 16:02 発言[未読]
【76644】Re:複数のシートの転記について マナ 15/2/22(日) 16:49 発言[未読]
【76651】Re:複数のシートの転記について マナ 15/2/23(月) 22:31 発言[未読]
【76646】Re:複数のシートの転記について β 15/2/22(日) 17:25 発言[未読]
【76657】Re:複数のシートの転記について ももかん 15/2/24(火) 12:09 お礼[未読]

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