一、excel怎么写个代码
Sub Demo()
Dim i As Long, j As Long, k As Long
Dim Arr(1 To 50) As Long, T(1 To 10) As Long
For i = 1 To 50
Arr(i) = i
Next
For j = 1 To 10
Call FY(Arr)
For k = 1 To 10
T(k) = Arr(k)
Next k
Range("a" & j + 1 & ":j" & j + 1) = T
Next
End Sub
Function FY(Arr)
Dim i As Integer, k As Integer, T
Dim L As Integer, U As Integer
L = LBound(Arr)
U = UBound(Arr)
For i = U To L Step -1
k = Application.RandBetween(L, i)
T = Arr(k)
Arr(k) = Arr(i)
Arr(i) = T
Next
FY = Arr
End Function
二、在excel中如何使用代码
excel中代码是通过vba编辑器编辑和运行的，以excel2007为例介绍操作步骤：
1、单击Excel2007窗口左上角的“Office 按钮”图标，在弹出的菜单中，单击“Excel选项”按钮；
2、在“Excel选项”对话框中,单击左侧“常用”分类，勾选“在功能区显示"开发工具"选项卡”项，单击“确定”按钮返回Excel2007主窗口，即可添加开发工具选项卡；
3、单击“开发工具”菜单-“Visual Basic”图标；
4、Excel2007打开代码编辑器窗口，单击“插入”菜单-“模块”菜单项，即可插入默认的模块“模块1”，即可在右侧的VBA代码编辑器窗口输入VBA代码；
5、代码编辑完成后，点击工具栏运行按钮即可运行。
三、excel2010宏vba代码怎么编写
首先，我建了一个演示示例。本文要通过宏实现的功能是将A列中","号之前的文字提取出来.
在Sheet1右键，选择查看代码
弹出VBA编辑页面
在Sheet1代码编辑页面输入代码：
Sub test()Dim i As IntegerFor i = 1 To 50 Step 1 Range("B" & i).Select ActiveCell.FormulaR1C1 = "=LEFT(RC[-1],FIND("","",RC[-1])-1)"Next
End Sub
输入完成点击保存，在弹出的对话框中点击是。
接着又弹出一个对话框，点确定往下走。其实这两步可以通过一些设置来避免弹出提示的，我将会在以后的经验中与大家分享。
然后点击视图-宏
选择查看宏
在宏列表中选择要执行的宏，点击执行。
excel工作表中立马有了变化，我们可以看以B列中完美显示了A列中“，”之前对应的内容，通过调用宏，我们实现了预定的功能。
