Excel VBA質問箱 IV

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

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


20122 / 76732 ←次へ | 前へ→

【62033】Re:行の挿入について(続き)
発言  mori  - 09/6/17(水) 19:39 -

引用なし
パスワード
   kanabun さん

ご回答をありがとうございます。
早速、やってみました。

(前略)
> With Worksheets(3)
>  '一時シートから行数を取得
>  lngMaxRow = Worksheets("TMP1").Cells(Rows.Count, 1).End(xlUp).Row
>  j = 1
>  For i = 31 To lngMaxRow
>   If j = 1 Then
>   ElseIf j Mod 29 = 1 Then
>    'A列〜U列まで 29行をCopy
>    .Range("A4").Resize(29, 21).Copy .Cells(j + 3) ←この部分でエラーが出ます
>    With .Cells(j + 3).Resize(29, 21)
>      .RowHeight = 27
>      Worksheets(3).PageSetup.PrintArea = .Cells
>    End With
>   End If
>   j = j + 1
>  Next

.Range("A4").Resize(29, 21).Copy.Cells(j + 3)
A4から29行・21列コピーする
pasteがないからか?と思ったのですが、うまくいきませんでした・・・
1 hits

【62024】行の挿入について(続き) mori 09/6/17(水) 13:17 質問
【62031】Re:行の挿入について(続き) kanabun 09/6/17(水) 14:18 発言
【62033】Re:行の挿入について(続き) mori 09/6/17(水) 19:39 発言
【62034】Re:行の挿入について(続き) kanabun 09/6/17(水) 19:51 発言
【62035】Re:行の挿入について(続き) kanabun 09/6/17(水) 20:22 回答
【62049】Re:行の挿入について(続き) mori 09/6/18(木) 21:19 お礼
【62037】Re:行の挿入について(続き) kanabun 09/6/17(水) 21:52 発言
【62036】Re:行の挿入について(続き) かみちゃん 09/6/17(水) 20:58 発言
【62050】Re:行の挿入について(続き) mori 09/6/18(木) 21:25 お礼

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