如何将宏结果设置到excel列中?我不熟悉宏';是的,非常基本。请解释一下

如何将宏结果设置到excel列中?我不熟悉宏';是的,非常基本。请解释一下,excel,vba,Excel,Vba,'需要在excel“Sheet1”的A列中设置员工(0)、员工(1)…、员工(25)的值 您可以使用类似的循环 Public Sub putvalue() dim n as long For n = 0 To n = 25 employee(n) = Chr(n + 65) Next n for n=0 to 25 cells(n+1,1).Value = employee(n) next n End Sub 您也可以完全不使用阵列: Public Sub putvalue() dim

'需要在excel“Sheet1”的A列中设置员工(0)、员工(1)…、员工(25)的值


您可以使用类似的循环

Public Sub putvalue()
dim n as long

For n = 0 To n = 25
employee(n) = Chr(n + 65)
Next n

for n=0 to 25
cells(n+1,1).Value = employee(n)
next n

End Sub
您也可以完全不使用阵列:

Public Sub putvalue()
dim n as long

for n=0 to 25
cells(n+1,1).Value = Chr(n + 65)
next n

End Sub
甚至更快

Public Sub putvalue()
range("A1:A26").formular1c1= "=char(row()+64)"
range("A1:A26").value=range("A1:A26").value

End Sub

您可以使用类似的循环

Public Sub putvalue()
dim n as long

For n = 0 To n = 25
employee(n) = Chr(n + 65)
Next n

for n=0 to 25
cells(n+1,1).Value = employee(n)
next n

End Sub
您也可以完全不使用阵列:

Public Sub putvalue()
dim n as long

for n=0 to 25
cells(n+1,1).Value = Chr(n + 65)
next n

End Sub
甚至更快

Public Sub putvalue()
range("A1:A26").formular1c1= "=char(row()+64)"
range("A1:A26").value=range("A1:A26").value

End Sub

看看这个,看看它是否有用。看看这个,看看它是否有用。