沙門です

<kounoike@mbh.nifty.com> wrote in message
news:bd5tj1$dp9$1@news512.nifty.com...
> 鴻池です。
 > 元のコードを利用するなら，次のようなものでどうでしょうか。

早速のご教授、ありがとうございます

> 'ここに以下を追加
>
> If Not IsNumeric(Cells(ペースト行 - 1, 1)) Then
>     Cells(ペースト行, 1) = 1
> Else
>     Cells(ペースト行, 1).Value = Cells(ペースト行 - 1, 1) + 1
> End If
>
> ただし，私は上の
> Range(Selection, Selection.End(xlToRight)).Copy
> ようにEndを使うのは，極力避けています。データを消しても，記録として最終セ
ル
> として残るケースがあるので。（入力でEndを使い，クリアで For i = 2 To 6とセ
ル
> を指定しているのが，どうしてかなと思いますが。）
>
> このマクロは，入力欄が空白でも追加されてしまうので，入力欄のチェックを追加
し
> たほうが，使いやすいと思います。

勉強します(゜)(。。)ペコッ。

（入力でEndを使い，クリアで For i = 2 To 6とセル を指定しているのが，どうし
てかなと思いますが。）

元記事は、セルを個別に指定してクリアしていました

  Cells(コピー行, 2).ClearContents
  Cells(コピー行, 4).ClearContents
  Cells(コピー行, 5).ClearContents

で全部をクリアするのについFor i = 2 To 6を

(..;)""""> ポリポリ

ありがとうございます。
５０歳過ぎのおいちゃんは、雑誌の記事を参考に、自分のやりたいことを
ただ単に足すだけでして(^_^;)

沙門