如何在列中插入值标题？

下面的代码根据input数字添加多列。 如何从我创build的列中添加值/文本？

例如：如果我input数字5，它会创build5列。 我想为该列添加一个值。

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 

我想在创build列的同时插入一个值。

Answer 1

例如，如果我input数字5它将创build5列..我想为该列添加一个值..

如果我理解得很好，那么每一列都需要不同的价值。

 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 

在代码的最后添加这个，应该工作的很好。