Excel VBA：最後に使用された行の後にセルにデータを追加します。

Question

picは自分のコードで何が起こるかを示しています。

ユーザーフォームがあり、ユーザーフォームのラベルを選択したワークシートに追加します。そして、これが私が試みたものです。問題は、他のセルと同じ行にない1つのセルがあるのはなぜですか？

Dim c As Control 
For Each c In Me.Controls 
    If TypeName(c) = "Label" Then 
     With ActiveSheet 
      i = i + 1 
      Dim lastRow As Long 
      lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 

      If c <> "Chapter" Then 
       .Range(Cells(1, 1), Cells(1, i)).Name = "Chapter1" 
       .Range("Chapter1").Merge 
       .Range("Chapter1").Value = "Chapter 1" 
       .Range("Chapter1").HorizontalAlignment = xlCenter 

       .Cells(lastRow, i).Value = c.Caption 
      End If 
     End With 
    End If 
Next 

Answer 1

問題は、.Cells(.Rows.Count, 1).End(xlUp).Rowを行う最初の時間はまだ何も存在しないだろうA2に、そうlastRowは1になります。しかし、あなたが値をつけたら、「いいえ」ということです（iが2である）そのコードを次回実行すると、A2が塗りつぶされるので、.Cells(.Rows.Count, 1).End(xlUp).Rowは2を返し、得られる効果を得ます。他のすべての値は1行下がります。

これを解決する方法はいくつかありますが、ここには1つの方法があります。 + IIf(i = 1, 1, 0)lastRowの割り当てを追加します。

lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + IIf(i = 1, 1, 0)