В этот момент у меня должен быть мозговой туман, потому что я уверен, что это легко сделать, и на самом деле мне удалось создать другие функции, которые немного сложнее для этого проекта.
Во всяком случае, что я пытаюсь сделать.У меня есть лист (инвентаризационные данные), и в столбце 1 он содержит название компании, которое одинаково для всех строк.т.е. каждая из приблизительно 1900 строк имеет название компании в первой ячейке.
Теперь, хотя данные всегда будут одинаковыми в каждом приложении, количество строк будет меняться.
Итак, мне нужна функция, которая сначала определит, какая последняя строка данных находится в диапазоне, а затем изменит все ячейки в первом столбце каждой записи на 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
End Sub