在最后一行下方添加行

我正在devise一个数据提交电子表格与12行数据（目前22至33行）。 行34至42填充有文本。 如果要input12个以上的数据集，使用与button33相同的格式，使用与button33相同的格式，我想在第33行下面添加一个新行（第34行）。 这很容易，但如果我需要在第34行下面的另一个新行（现在是第35行），我需要一个代码是灵活的做到这一点; 我总是在第33行下面添加新行，而不是在数据input集的最后一行之下。 我该怎么做呢？ 我对VBA相当陌生

谢谢，

安迪

Answer 1

我不认为唐的答案会起作用，因为你说你有34到42行的文字。

如果行34中的单元格的文本值没有更改，则可以search该单元格并在其上方插入一行。

Dim someText As String someText = "Text value of row 34" Dim currentRange As Range Set currentRange = Selection With Range("A:A").find(someText) 'change the range if needed .EntireRow.Insert .Offset(-2).EntireRow.Copy .Offset(-1).EntireRow.PasteSpecial xlPasteFormats 'change the paste type as needed End With Application.CutCopyMode = False 'get rid of the marching ants currentRange.Select 'select whatever was selected before 'alternative: Range("A1").Select 

Answer 2

 lastrow = Cells(Rows.Count, "A").End(xlUp).Row + 1 

将“A”更改为始终包含数据的列的名称。

您的lastrowvariables可以用作：

 Range("A" & lastrow).Value = "blah"