エクセルの学校：全文検索：Hyper Estraier：（素人）

Results of 1 - 1 of about 159 for （素人） (0.000 sec.)

[[20190915094759]]: #score: 10177; @digest: 5b9c950226865060823358c324828dfa; @id: 80785; @mdate: 2019-09-17T05:43:13Z; @size: 1374; @type: text/plain; #keywords: 合ra (5803), 囲コ (3893), 合時 (3270), 礎知 (2742), タ配 (1608), 想通 (1341), 全行 (1230), （素 (1171), 大行 (1158), 下部 (1031), 基礎 (764), 渡辺 (672), 素人 (669), 自信 (605), 最下 (587), で範 (584), selection (572), 理想 (495), 人） (485), 数行 (444), 記コ (411), 正確 (402), 教示 (388), 示い (351), コー (339), 知識 (322), 白セ (322), 一行 (305), る際 (302), worksheetfunction (286), 際は (284), るコ (271); 『VBAで範囲コピーをする際、1行のみだと全行が選択されてしまう』（素人） 失礼いたします。 VBAで範囲コピーをして別シートに張り付けるために下記コードを使用していますが、日によって行数が変動するため1行のみの場合時間がかかりエラーが起こってしまいます。データが複数行にある際は問題なく動作しています。 Range("B4:AD4").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy 過去の質問も見てみましたが、あまり同じ例がなく、また基礎知識も乏しいもので正確に動かせる自信がなくご質問させていただきました。 1行でも問題なく範囲コピーできるコードをご教示いただけますでしょうか。よろしくお願いいたします。＜使用 Excel:Excel2013、使用 OS:Windows10 ＞ ---- 一行の場合、なぜ時間がかかるのかは理解されているのでしょうかね? それはさておきシートのデータ配置の状態によって、使えるコードが変わってきます 'A列と3行目がすべて空白セルの場合 Range("B4").CurrentRegion.Resize(, 29).Copy 'そうではない場合 Range("B4").Resize(WorksheetFunction.CountA(Range("B4:B100")), 29).Copy B100 のところは、予想される最大行を設定してください（渡辺ひかる） 2019/09/15(日) 10:53 ---- ご返信ありがとうございます。 1行の際は最下部までコピーをしてしまっているからだと思います。ご教示いただいた下のコードを使用したところ理想通りの動きをしてくれました。 2通りものコードをありがとうございます。 （素人） 2019/09/17(火) 14:43 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201909/20190915094759.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ