Ошибка времени выполнения «1004» Невозможно установить текстовое свойство диапазона
Я пытаюсь хранить данные из листа «details» в строки из разных столбцов в разные строки для каждой строки линейным образом, а затем присваивать строкам одно и то же значение 51 раз в ячейках другого листа с именем «output».
Option Explicit Sub Arrange() Dim FinalRow, FinalRow1 As Long Dim ws, wr As Worksheet Dim strCN, strAdd, strCity, strState, strZip, strPhone, strWeb As String Application.ScreenUpdating = False Dim i, j As Long Set ws = Sheets("details") FinalRow = ws.Range("A900000").End(xlUp).Row For j = 2 To FinalRow strCN = Cells(j, "A") strAdd = Cells(j, "H") strCity = Cells(j, "I") strState = Cells(j, "J") strZip = Cells(j, "K") strPhone = Cells(j, "R") strWeb = Cells(j, "U") Set wr = Sheets("output") FinalRow1 = wr.Range("A900000").End(xlUp).Row For i = FinalRow1 To FinalRow1 + 51 With Sheets("output") Cells(i, "A").Text = strCN 'Error Line Cells(i, "B").Text = strAdd Cells(i, "C").Text = strCity Cells(i, "D").Text = strState Cells(i, "E").Text = strZip Cells(i, "F").Text = strPhone Cells(i, "G").Text = strWeb End With Next i Next j End Sub - ObjWorkbook.Worksheets.Count не работает
- «Ошибка выполнения 380: недопустимое значение свойства»
- Ошибка выполнения 9
- VBA error 1004 выберите метод поля класса рабочего листа
- Ошибка прерывания Excel при открытии / сохранении файлов
- Ошибка времени выполнения над условным форматированием в VBA
- Диапазон автофильтрации в UserForm приводит к преждевременному отключению функции без ошибок
- Ошибка времени выполнения 424 Началось без предупреждения
- Ошибка при запуске функции для преобразования координат в градусах в десятичную для EXCEL VBA
- Ошибка выполнения 6 - Переполнение, переменная, заданная как Long
- Ошибка Runtime Ошибка 13 типа Excel
- Ошибка «1004» в excel VBA, но иногда отлично работает
- Ошибка выполнения «9» при удалении модуля Excel VBA
Согласно нашему разговору выше. Я внес изменения, которые я предложил.
Последняя проблема заключалась в том, что лист данных не вызывался, и если другой лист был активен в то время, когда он смотрел на пустые ячейки.
Dim FinalRow, FinalRow1 As Long Dim ws, wr As Worksheet Dim strCN, strAdd, strCity, strState, strZip, strPhone, strWeb As String Application.ScreenUpdating = False Dim i, j As Long Set ws = Sheets("details") FinalRow = ws.Range("A900000").End(xlUp).Row For j = 2 To FinalRow With ws strCN = .Cells(j, "A") strAdd = .Cells(j, "H") strCity = .Cells(j, "I") strState = .Cells(j, "J") strZip = .Cells(j, "K") strPhone = .Cells(j, "R") strWeb = .Cells(j, "U") End With Set wr = Sheets("output") FinalRow1 = wr.Range("A900000").End(xlUp).Row For i = FinalRow1 To FinalRow1 + 51 With Sheets("output") .Cells(i, "A").Value = strCN 'Error Line .Cells(i, "B").Value = strAdd .Cells(i, "C").Value = strCity .Cells(i, "D").Value = strState .Cells(i, "E").Value = strZip .Cells(i, "F").Value = strPhone .Cells(i, "G").Value = strWeb End With Next i Next j Application.ScreenUpdating = True