作者：乔山办公网日期：
返回目录：excel表格制作
Sub AB比较插入e69da5e887aae799bee5baa6335空格()
Dim n%, i%, j%, k%, Arr, ArrOut()
n = Cells(Rows.Count, "A").End(xlUp).Row
If Cells(Rows.Count, "B").End(xlUp).Row > n Then n = Cells(Rows.Count, "B").End(xlUp).Row
Arr = Range(Cells(1, 1), Cells(n + 1, 2))
Arr(n + 1, 1) = "最": Arr(n + 1, 2) = "最"'改成最大的字符。
ReDim ArrOut(1 To 2 * n + 2, 1 To 2)
i = 1: j = 1: k = 1
Do
If Arr(i, 1) < Arr(j, 2) Then ArrOut(k, 1) = Arr(i, 1): ArrOut(k, 2) = "": i = i + 1: k = k + 1: Debug.Print i, j, k
If Arr(i, 1) > Arr(j, 2) Then ArrOut(k, 1) = "": ArrOut(k, 2) = Arr(j, 2): j = j + 1: k = k + 1: Debug.Print i, j, k
If Arr(i, 1) = Arr(j, 2) Then ArrOut(k, 1) = Arr(i, 1): ArrOut(k, 2) = Arr(j, 2): i = i + 1: j = j + 1: k = k + 1: Debug.Print i, j, k
Loop Until ((i > n) And (j > n))
[A1].Resize(k - 2, 2) = ArrOut
End Sub
1、首先打开excel，点击开发工具单击选择插入，之复后在下拉的菜单中的制表单中的控件里面选择”按钮“的图标。
百查看大图" class="ikqb_img_alink">
2、然后再弹出的一个对话框“指定宏”的度时候，单机新建的按钮。
3、这问样答就进入到Excel的VBA程序宏的编辑界面，进入之后写一个演示宏，然后点击保存。
4、这个时候程序就已经写好了，当点击excel中的按钮的时候会弹出一个hello world的消息提示框。
在E2输入公式：
=IF(B2="","",TEXT(D2,"aaaa"))
将公式向下复制到足够多的行。
其他列参考修改公式即可。
1、新建一工作表。
2、在sheet1中插e799bee5baa6e4b893e5b19e365入一个艺术字（艺术字将成为按钮）。
3、右击艺术字→指定宏→新建。
4、复制以下代码，就会在sheet1的A列中出现结果。（若要随机可插入Rnd函数）。
Sub 艺术字1_单击()
step_a:
a = InputBox("A的比例（请输入数字）：")
If Not (IsNumeric(a)) Then
MsgBox "输入不是数字，程序终止。"
Exit Sub
End If
a1 = a / 100 * 350
If a1 <> Int(a1) Then
MsgBox "A的个数=350*" & a & "%=" & a1 & "个，数量不是整数，请重新输入。"
GoTo step_a
End If
step_b:
b = InputBox("B的比例（请输入整数）：")
If Not (IsNumeric(b)) Then
MsgBox "输入不是数字，程序终止。"
Exit Sub
End If
b1 = b / 100 * 350
If b1 <> Int(b1) Then
MsgBox "B的个数=350*" & b & "%=" & b1 & "个，数量不是整数，请重新输入。"
GoTo step_b
End If
MsgBox "C的比例=1-A的比例-B的比例=" & 100 - a - b & "%"
Sheet1.Cells(1, 2) = "A的数量= " & a1 & "个"
Sheet1.Cells(2, 2) = "B的数量= " & b1 & "个"
Sheet1.Cells(3, 2) = "C的数量= " & 350 - a1 - b1 & "个"
For i = 1 To a1
Sheet1.Cells(i, 1) = "A"
Next i
For i = i To a + b1
Sheet1.Cells(i, 1) = "B"
Next i
For i = i To 350
Sheet1.Cells(i, 1) = "C"
Next i
End Sub