我设计与数据的12行（当前行22〜33）数据提交电子表格。 行34至42中填充有文本。 我想低于33行添加一个新行（行34）如果要输入超过12分的数据集，以相同的格式排33，使用分配给按钮的宏。 这很简单，但如果我需要另一个新行（现在排35）下面一行34，我需要一个代码是灵活的做到这一点; 雷总是添加低于33行的新线，而不是数据条目集的最后一行的下方。 我该怎么做呢？ 我是很新的VBA ...
谢谢，
安迪
Answer 1:
我不认为唐的回答会的工作，因为你的国家，你必须在文本行34至42。
如果将电池在34行文本值不会改变，你可以搜索电池，并插入它上面的一行。
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”更改为始终在有数据的列的名称。
那么你的LASTROW变量可以作为：
Range("A" & lastrow).Value = "blah"
文章来源: Add rows below last row
