У меня есть проблема с циклом с двумя пунктами одновременно в excel. Я знаю, что это должно быть легко, но у меня есть ментальный блок

Вот что я работаю. Как мне сделать цикл с циклом, а диапазон B <> 0? Мой код:

x = Range("F2") + 5 y = Range("T26") Range("B26").Copy Sheets("Results").Select Cells(x, y).Select ActiveCell.PasteSpecial xlPasteValues Sheets("Input").Select y = Range("T27") Range("B27").Copy Sheets("Results").Select Cells(x, y).Select ActiveCell.PasteSpecial xlPasteValues Sheets("Input").Select y = Range("T28") Range("B28").Copy Sheets("Results").Select Cells(x, y).Select ActiveCell.PasteSpecial xlPasteValues 

etc и т. д.

Непроверенные:

 Dim shtI As Worksheet, shtR As Worksheet Dim c As Range Dim x As Long, y As Long Set shtI = ThisWorkbook.Sheets("Input") Set shtR = ThisWorkbook.Sheets("Results") x = shtI.Range("F2").value + 5 Set c = shtI.Range("B2") Do While Len(c.value) > 0 y = shtI.Range("T" & c.Row).value If IsNumeric(y) Then shtR.Cells(x, y).value = c.value Set c = c.Offset(1, 0) Loop 
  • Цикл диапазона, где значение ячейки пустое
  • Использование цикла excel vba для захвата значения ячейки и использования в Slicer
  • Зацикливание непустых ячеек, выполнение функции, если значение не пустое
  • Логическое значение неправильно присваивается на основе условий для цикла
  • Excel VBA: копирование / вставка
  • чтение файлов excel в единый блок данных с readxl R
  • Создайте строки, затем скопируйте и вставьте исходный ряд в новые строки.
  • выпуск с петлями в vba
  • VBA в Excel пропускает 2-й Do Noting Loop полностью
  • VBA Прокрутите папку и подпапки, чтобы найти конкретный лист, затем скопируйте и вставьте определенные данные
  • Проектирование цикла python3 For, который присваивает значениям ячеек из двух столбцов листа Excel переменным в процессе Selenium и циклам для всех строк
  • Interesting Posts

    Excel Macro-Enabled Workbook не закрывается и не открывается должным образом

    Цвет ячейки VBA Fill, основанный на значении другой ячейки

    VBA, Вставить подпись внешнего вида в код vba

    Протоколы должны соответствовать исключению при загрузке большого файла (GWT)

    Снять защиту класса рабочего листа с ошибкой при совместном использовании

    Специальная книга невидимая Excel VBA

    Найти и удалить несколько экземпляров слов, следующих за = 's и перед запятой

    Копирование данных с нескольких листов в единый почтовый ящик

    Приложение c # console читает листок excel и удаляет строки на основе содержимого

    Excel. Сравните больше, чем столбец с помощью VLOOKUP.

    Поиск минимальной даты с даты и времени в excel

    Присвоение значений ячейкам в excel таким образом, чтобы их сумма была постоянной

    Ошибка Excel – объект не поддерживает это свойство или метод

    Как создать параметр загрузки для динамически созданной книги

    Скопируйте запись, если она снова закроется в другой книге

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