找出如何用特定文本替换区域中的单元格的问题- Excel VBScript

Question

在这一点上，我必须有一个脑雾，因为我确信这很容易做到，事实上，我已经设法创建了这个项目更复杂的其他函数。

不管怎样，我想做的是。我有一个表(inventory-data)，在第1列中，它列出了一个公司名称，所有行都是一样的。也就是说，大约1900行中的每一行在第一个单元格中都有companyname。

现在，虽然每个应用程序中的数据总是相同的，但行数将发生变化。

因此，我需要一个函数，它将首先确定范围中的最后一行数据是什么，然后将每个记录的第一列中的所有单元格更改为name_company。公司名称总是相同的，所以我可以静态地分配它们。这是我所拥有的不起作用的东西。

我能够让它以另一种方式工作，但它会一直替换文本到工作表的最后一行，远远超出数据停止的地方。

谢谢!

Sub changeCompany() 'Changes company name as pulled from Agemni into proper ETA format
Dim myCell As Range
Dim RngToChange As Range 'The range of cells that need to be changed
Dim LastRow As Long 'Declare variable to help determine the last row on a variable length worksheet
Dim i As Integer
With Worksheets("inventory-data") 'set the range to change
    Set RngToChange = .Columns(1)
End With
LastRow = Worksheets("inventory-data").UsedRange.Rows.Count 'Have Excel determine what the last row is.
For i = LastRow To 1 Step -1
    RngToChange.Cells.Value = "name_company"
Next i

结束子

Answer 1

使用[someecellorrange]. currentreregion . rows我总是更成功。数如:

Range("A1").CurrentRegion.Rows.Count

userange查找任何单元格的使用，而不限于连续的表格块。它有时也需要您重新保存工作簿，以便在您删除某些行后正确收缩工作簿。