Ошибка времени выполнения «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 

Согласно нашему разговору выше. Я внес изменения, которые я предложил.

Последняя проблема заключалась в том, что лист данных не вызывался, и если другой лист был активен в то время, когда он смотрел на пустые ячейки.

 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 
  • Ошибка времени выполнения VBA 91. Переменная объекта установки проблемы
  • Именованные диапазоны с использованием функции index / Match для возврата значений
  • Код не работает для набора Pivot Data с строками> 65536
  • VBA - Ошибка выполнения 1004 - Документ не может быть сохранен
  • Скрипт запускает, но ничего не делает
  • Ошибка времени выполнения 1004 'Метод копирования класса Range Failed'
  • Ошибка VBA Runtime Error 91 Переменная объекта не задана - что я делаю неправильно?
  • Ошибка выполнения «1004» Метод «Диапазон» объекта «_Global» не удался - имена динамических таблиц, циклы, поиск между рабочими листами
  • Ошибка 1004: ошибка, определяемая приложением или объект-ошибка. Excel
  • Временное решение 1004 - Защитить / Снять защиту в Worksheet_Change
  • VBA - метод «Список» объекта «_CommandBarComboBox» не выполнен
  • Interesting Posts

    Как скопировать лист Excel в новую книгу и привести все диаграммы, изображения и т. Д.?

    Excel: Увидеть, если человек уже в списке

    VBA excel 2007, ComboBox «Разрешение отказано»

    VBA Excel – упрощение для функций IF для операторов IF

    Дата Excel изменена на другую дату в mysql

    COUNTIFS на видимых столбцах

    для цикла в python для окраски нескольких ячеек в excel

    Скопируйте все данные во все простыни в одном листе

    Для всех экземпляров, где столбец a = конкретное значение, проверьте, содержит ли столбец b текст

    Условное `if ()` не работает в вложенном цикле

    Автоматизация Excel из базы данных, какова лучшая технология для этого?

    Заполнение TextBox со ссылкой на ячейку при нажатии на ячейку при открытии UserForm

    Преобразование VBA конвертирования / вставки в значение = значение вызывает ошибку 1004

    Excel VBA Userform Как добавлять и вычитать переменные?

    Crystal Reports 8.5: Экспорт в Excel приводит к исчезновению десятичных знаков

    Давайте будем гением компьютера.