Excel VBA質問箱 IV

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

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


5081 / 76732 ←次へ | 前へ→

【77264】Re:シートをまとめる
発言  kanabun  - 15/6/27(土) 14:29 -

引用なし
パスワード
   >で、A列とか B列は そうではなく、上から手入力していて、たとえば、
>↓の例ですと、[B23]から下は 空白セル(数式も入っていない) なのでは?
>
>   A    B     C       D    E   F    G
>16 日付  コード  商品名     価格 出庫数 単位  金額
>17     1015   SuperDry    800   100  本  80000
>18     1016   黒ラベル    800   55  本  44000
>19     1059   白岳仙     1000    3  本  3000
>20     1066   黒龍      1000    4  本  4000
>21     1024   梅酒な     450    5  本  2250
>22     1055   一本義     1000    4  本  4000
>23          =If(B23="","",...)
>24          =If(B24="","",...)
>25          =If(B25="","",...)
> :
> :
>114         =If(B114="","",...)

B列に着目すれば、値が入っている行だけを直接コピーしてしまえばよいので
簡単です。

Sub tryB()
 Dim wsまとめ As Worksheet
 Dim ws As Worksheet
 
 Set wsまとめ = Worksheets("集約") 'まとめ用シート
 For Each ws In Worksheets
  If ws.Name <> wsまとめ.Name Then
    ws.Range("B17", ws.Cells(Rows.Count, 2).End(xlUp)) _
     .Offset(, -1).Resize(, 7).Copy
    wsまとめ.Cells(Rows.Count, 2).End(xlUp).Offset(1, -1) _
     .PasteSpecial xlPasteValues
  End If
 Next

End Sub
404 hits

【77258】シートをまとめる エクセル勉強中 15/6/27(土) 1:02 質問[未読]
【77259】Re:シートをまとめる β 15/6/27(土) 5:52 発言[未読]
【77260】Re:シートをまとめる kanabun 15/6/27(土) 11:26 発言[未読]
【77261】Re:シートをまとめる エクセル勉強中 15/6/27(土) 12:15 発言[未読]
【77262】Re:シートをまとめる kanabun 15/6/27(土) 14:07 発言[未読]
【77264】Re:シートをまとめる kanabun 15/6/27(土) 14:29 発言[未読]
【77266】Re:シートをまとめる エクセル勉強中 15/6/27(土) 15:21 発言[未読]
【77267】Re:シートをまとめる kanabun 15/6/27(土) 15:30 発言[未読]
【77265】Re:シートをまとめる β 15/6/27(土) 15:09 発言[未読]
【77263】Re:シートをまとめる kanabun 15/6/27(土) 14:22 発言[未読]

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