1.EXCEL中的这个宏代码怎么写Sub xabc()RandomizeDim s(3, 3)Dim t As Integert = 350s(0, 0) = 0s(0, 1) = 0s(0, 2) = 0s(1, 0) = 0.2s(1, 1) = 0.2s(1, 2) = 0.6s(2, 0) = Int(t * s(1, 0))s(2, 1) = Int(t * s(1, 1))s(2, 2) = t - s(2, 1) - s(2, 0)i = 1Do While Truem = Rnd()If m < s(1, 0) And s(0, 0) < s(2, 0) ThenCells(i, 1) = "A"s(0, 0) = s(0, 0) + 1i = i + 1ElseIf m < s(1, 1) + s(1, 0) And s(0, 1) < s(2, 1) ThenCells(i, 1) = "B"s(0, 1) = s(0, 1) + 1i = i + 1ElseIf m < s(1, 2) + s(1, 0) + s(1, 1) And s(0, 2) < s(2, 2) ThenCells(i, 1) = "C"s(0, 2) = s(0, 2) + 1i = i + 1End IfEnd IfEnd IfIf i > t Then Exit DoLoopEnd Sub'定义的三维数组，第一维用来计数，记下A、B、C各生成了多少第二维是A、B、C所占的比重，如果在三个空格里输入比例，让这儿分别等于三个单元格的值 。
第三维是计算出来的A、B、C各自应该多少个 。t=350是总数每个位置是什么由随机数来决定 。
2.EXCEL中的这个宏代码怎么写Sub xabc()
Randomize
Dim s(3, 3)
Dim t As Integer
t = 350
s(0, 0) = 0
s(0, 1) = 0
s(0, 2) = 0
s(1, 0) = 0.2
s(1, 1) = 0.2
s(1, 2) = 0.6
s(2, 0) = Int(t * s(1, 0))
s(2, 1) = Int(t * s(1, 1))
s(2, 2) = t - s(2, 1) - s(2, 0)
i = 1
Do While True
m = Rnd()
If m t Then Exit Do
Loop
End Sub
'定义的三维数组，第一维用来计数，记下A、B、C各生成了多少
第二维是A、B、C所占的比重，如果在三个空格里输入比例，让这儿分别等于三个单元格的值 。
第三维是计算出来的A、B、C各自应该多少个 。
t=350是总数
每个位置是什么由随机数来决定 。
3.求一段关于EXCEL复制的宏代码怎么写Sub aaaa()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Sheets("sheet1").Select
Range("a:b").Select
Selection.Copy
Sheets("sheet3").Select
Range("a:b").Select
ActiveSheet.Paste
a = WorksheetFunction.CountA(Range("a:a"))
b = WorksheetFunction.CountA(Range("b:b"))
Sheets("sheet2").Select
c = WorksheetFunction.CountA(Range("a:a"))
d = WorksheetFunction.CountA(Range("b:b"))
Range("a1:" & "a" & c).Select
Selection.Copy
Sheets("sheet3").Select
Range("a" & a + 1).Select
ActiveSheet.Paste
Sheets("sheet2").Select
Range("b1:" & "b" & d).Select
Selection.Copy
Sheets("sheet3").Select
Range("b" & b + 1).Select
ActiveSheet.Paste
End Sub
4.实现这个功能,EXCEL宏代码如何写这个不需要用宏，提供以下方法供参考：
一.点"工具"-->；'选项"-->；"重新计算"-->；"手动重算"，如图：
-->；'确定"，需要计算时，按"F9"键即可.
二.汇总表用透视表替换公式，如图：
修改或添加明细数据后，只需在透视表区域内右击-->；"刷新数据即可，如图：
此法方便快捷灵活准确，建议用此法.
5.关于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图表的坐标