Как вставить заголовки значений в столбцы?

В приведенном ниже коде добавлено несколько столбцов на основе входного номера. Как добавить значение / текст из созданных мной столбцов?

Пример: если я ввожу номер 5, он создаст 5 столбцов. Я хочу добавить значение для этих столбцов.

Option Explicit Sub Button2_Click() Dim iCountCols Dim colRef As String Dim colRef2 As String Dim colAdd As Worksheet Application.Calculation = xlCalculationManual Application.EnableEvents = False Application.ScreenUpdating = False Set colAdd = ThisWorkbook.Worksheets("RDBMergeSheet") Sheets("RDBMergeSheet").Select Range("M1").Select iCountCols = Application.InputBox(Prompt:="Insert number of columns" _ & "?", Type:=1) If iCountCols <= 0 Then End Selection.Resize(, iCountCols).EntireColumn.Insert Shift:=xlRight Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True Application.ScreenUpdating = True End Sub 

Я хочу вставить значение одновременно с созданием столбца. введите описание изображения здесь

Пример, если я ввожу число 5, он создаст 5 столбцов. Я хочу добавить значение для этих столбцов ..

Если я понял, что вам нужно различное значение для каждого столбца, вот оно.

 dim col_values_input as string dim col_values() as string col_value=InputBox("Type your column/s value bellow, delimit them with coma") col_values=Split(col_value, ",") if col_values.Lenght <> 0 And Not col_values.Lenght > iCountCols Then count = 0 for each val in col_values colAdd.range("M1").offset(0,count).value=val count = count + 1 next val end if 

добавьте это в конце кода, должно хорошо работать.

Interesting Posts

MS Excel – Как обновить ячейку автоматически каждые 5 секунд?

Формула в excel для увеличения в процентах X раз

Excel VBA сохраняет листы в несколько папок с уникальными именами

Excel Grouped Columns проверяет, содержат ли дети данные

значение ячейки из рабочих листов в один столбец на листе

Уникальные значения Excel для нескольких строк

извлечь номер строки результата функции

Экспорт данных для Excel в C # с заданием с запятой

Как VLOOKUP получить # N / A значение в VBA?

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

Excel VBA Сравнить столбцы A и столбцы B

Автоматическое копирование значения и формата – Excel

Excel подключается к TFS 2012 без установки VS 2012

VBA снимает скриншот отфильтрованного Excel и отправляет каждую строку в итерации

Excel: суммирование диапазона ячеек, если связанный ключ находится в диапазоне значений, используя формулу

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