本文目录一览：
- 1、请教一下，Excel宏，怎么用代码实现这个功能呀？
- 2、帮我写一个EXCEL的代码，简单的
- 3、excel怎么写个代码？
- 4、EXCEL宏代码编写
- 5、怎么在EXCEL中使用代码？
- 6、excel2010宏vba代码怎么编写
请教一下，Excel宏，怎么用代码实现这个功能呀？
使用宏需要一定的基础，完全给出不用调试的代码需要给出原表的全屏图。
下面是根据帖子图片编写的程序代码：
注意，程序在模块里面，程序中的表名sheet1、sheet2需要自行修改，如果是在不同的EXCEL文件中，还应该写为workbooks("book1").sheets("sheett1")这样的格式。
下面是测试数据：
下面的测试数据运行产生的测试结果：
程序只产生A2开始的结果，标题行请自行添加。
最后强调，如果实际数据与帖子图片格式不同，例如数据开始行3，例如指标个数和列，那么代码需要适当的修改，希望自行理解代码的情况调整，代码文本如下：
Option Explicit
Sub 转换格式()
Dim arr1, arr2, i, j, n
arr1 = Sheets("sheet1").UsedRange 'sheet1是原始数据表名，请自行修改
ReDim arr2(1 To UBound(arr1) * 5, 1 To 6)
For i = 3 To UBound(arr1) '原表正式数据从第3行开始，请检查确认
For j = 4 To 8
If arr1(i, j) "" Then
n = n + 1
arr2(n, 1) = arr1(i, 1)
arr2(n, 2) = arr1(i, 1)
arr2(n, 3) = arr1(i, 1)
arr2(n, 4) = arr1(2, j)
arr2(n, 5) = arr1(i, j)
arr2(n, 6) = arr1(i, 9)
End If
Next j
Next i
Sheets("sheet2").Range("a2").Resize(n, 6) = arr2 'sheet2是结果表名，请自行修改
End Sub
帮我写一个EXCEL的代码，简单的
代码如下：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 6 And Target.Column = 10 Then
Cells(8, 8).Select
End If
End Sub
代码不能放在模块中，需要放在工作表中。
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宏代码编写
给你把每句的含义写上注释吧，因为你的目标不是很明确，你根据注释稍做修改就可以用了
Sub Macro7()
'
' Macro7 Macro
' 宏由 qx 录制，时间: 2007-4-2
'
'
Charts.Add '增加EXCEL图表
ActiveChart.ChartType = xlLineMarkers '指定刚刚新加的EXCEL图表类型
ActiveChart.SetSourceData Source:=Sheets("Sheet7").Range("G5:G34"), PlotBy _
:=xlColumns '指定刚刚新加的EXCEL图表数据源，如果数据源发生变化，修改("Sheet7")为相应工作表名，("G5:G34")为相应区域即可
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet7"
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = True
.HasAxis(xlValue, xlPrimary) = True
End With '指定刚刚新加的EXCEL图表的坐标
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic '指定刚刚新加的EXCEL图表的坐标格式
ActiveWindow.Visible = False '把当前窗口隐藏，这句挺奇怪的
Windows("Industry_by_province.xls").Activate '激活指定EXCEL文件
Sheets("Sheet7").Select '激活指定的工作表，此处也就是数据源表
End Sub
---------------------------------------------------------
我给你做最最简单的修改吧，在开始由你指定数据源和图表所在工作表的名称。有什么问题可以再问，关键是你想怎么做。
Sub Macro7()
'
' Macro7 Macro
' 宏由 qx 录制，时间: 2007-4-2
'
'
strSheetName=InputBox("请输入数据源Sheet名")
Charts.Add '增加EXCEL图表
ActiveChart.ChartType = xlLineMarkers '指定刚刚新加的EXCEL图表类型
ActiveChart.SetSourceData Source:=Sheets(strSheetName).Range("G5:G34"), PlotBy _
:=xlColumns '指定刚刚新加的EXCEL图表数据源，如果数据源发生变化
ActiveChart.Location Where:=xlLocationAsObject, Name:=strSheetName
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = True
.HasAxis(xlValue, xlPrimary) = True
End With '指定刚刚新加的EXCEL图表的坐标
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic '指定刚刚新加的EXCEL图表的坐标格式
ActiveWindow.Visible = False '把当前窗口隐藏，这句挺奇怪的
Windows("Industry_by_province.xls").Activate '激活指定EXCEL文件
Sheets(strSheetName).Select '激活指定的工作表，此处也就是数据源表
End Sub
怎么在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列中“，”之前对应的内容，通过调用宏，我们实现了预定的功能。