| |
▼かみちゃん さん：
>こんにちは。かみちゃん です。
>
>>>実行前に、「い」の行が３行あるのに、実行後は２行にするのですか？
>>
>>>もしかして、上の行と、値が違うときは、１行挿入するということですか？
>>
>>上の行と、値が違うときは、１行挿入したいです。
>
>では、実行後の期待している結果にそのように書かないと、わかりませんよ。
>
>以下は、ヒントのコードです。
>行の挿入は、特定の行を挿入する操作を「マクロの記録」で記録するとある程度の
>ことは、わかります。
>
>Sub Sample()
> Dim rngLastCell As Range
> Dim lngRow As Long
>
> Set rngLastCell = Range("A" & Rows.Count).End(xlUp)
>
> For lngRow = rngLastCell.Row To 2 Step -1
> If Cells(lngRow, "A").Value <> Cells(lngRow - 1, "A").Value Then
> '行を挿入する
> End If
> Next
>End Sub
ありがとうございます。実行してみます。
|
|
こう
- 08/6/15(日) 19:13 -
