Question

我有一个带有电子邮件地址的电子表格（A栏）我需要编写一个宏/ VBScript函数来填充B到L的列号，分别是数字1到11，即

some.user@address.com 1 2 3 4 5 6 7 8 9 10 11

有人可以帮我解决这个问题吗？

TIA。

Answer 1

我没有自己的excel所以我不确定这是否正常：

for i = 0 to rowCount
 Range("A" + i).select
 for j = 1 to 11
  Cells(i,j).Select ' I'm not sure if this line works
  ActiveCell.FormulaR1C1 = i
 next j
next i

希望这有效。

Answer 2

这应该按照你的要求行事。这会将数字1-11添加到包含第一个单元格中数据的任何行。

Sub AddNumbers()
LastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
    For Each cell In Range(Cells(1, 1), Cells(LastRow, 1))
        If cell.Text <> "" Then
            For i = 2 To 12
                Cells(cell.Row, i).Select
                ActiveCell.Value = (i - 1)
            Next
        End If
    Next
End Sub

帮助Excel VBScript - 用数据填充列

2 个答案: