Excel VBA質問箱 IV

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

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


81 / 13329 ツリー ←次へ | 前へ→

【80595】フォルダ内のファイルの一部シートの集計 mkmk 19/3/17(日) 12:00 質問[未読]

【80614】Re:フォルダ内のファイルの一部シートの集計 マナ 19/3/17(日) 23:18 発言[未読]
【80615】Re:フォルダ内のファイルの一部シートの集計 mkmk 19/3/17(日) 23:50 質問[未読]
【80618】Re:フォルダ内のファイルの一部シートの集計 マナ 19/3/18(月) 18:49 発言[未読]

【80614】Re:フォルダ内のファイルの一部シートの...
発言  マナ  - 19/3/17(日) 23:18 -

引用なし
パスワード
   ▼mkmk さん:

>ただ、貼り付けは行方向に追加したかったのですが、
>列方向に貼り付く記述でした。

>貼り付け元a1:b30 で、貼り付け先での2ファイル目からa30:b60
>というように行方向に追加されるには
>

以下の2行の意味を説明してください。

Set target = ThisWorkbook.Worksheets("全集計").Cells(1, Columns.Count).End(xlToLeft)

target.Offset(0, 1).PasteSpecial Paste:=xlPasteValues

【80615】Re:フォルダ内のファイルの一部シートの...
質問  mkmk  - 19/3/17(日) 23:50 -

引用なし
パスワード
   下記のような認識です。
▼マナ さん:
>▼mkmk さん:
>。
>>ただ、貼り付けは行方向に追加したかったのですが、
>>列方向に貼り付く記述でした。
>
>>貼り付け元a1:b30 で、貼り付け先での2ファイル目からa30:b60
>>というように行方向に追加されるには
>>
>>
>Set target = ThisWorkbook.Worksheets("全集計").Cells(1, Columns.Count).End(xlToLeft)

→全集計シートの1行目の最終列から空白セルを除いた最終列箇所

>target.Offset(0, 1).PasteSpecial Paste:=xlPasteValues
→offset(0.1)で右方向(列)を1列づつずらして転記

【80618】Re:フォルダ内のファイルの一部シートの...
発言  マナ  - 19/3/18(月) 18:49 -

引用なし
パスワード
   ▼mkmk さん:


>→全集計シートの1行目の最終列から空白セルを除いた最終列箇所

>→offset(0.1)で右方向(列)を1列づつずらして転記

では、列方向でなく、行方向に、転記するためには、
それぞれ、どう変更したらよいか考えてください。
コードでなくて良いです。
日本語の文章だとどうなるか考えてください。

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