湖南龙网

  1. 首页 > 生活百科 > >

excel宏怎么写代码

生活百科excel

excel宏怎么写代码问题补充说明：我想弄一个比较A和B两列，如果A1和B1一样就不动，如果A1B1不一样比较下数值A1大就A列插入一个单元格,活动单元格下移，继续比较刚移下去的格和B列对应的，相同就向下，不同就比较数值；...我想弄一个比较A和B两列，如果A1和B1一样就不动，如果A1B1不一样比较下数值 A1大就A列插入一个单元格,活动单元格下移，继续比较刚移下去的格和B列对应的，相同就向下，不同就比较数值；A1小于B1的话，B列插入一个空单元格，比较A2和刚才移下去的B2 。A B两列不是纯数字，求代码 谢谢了展开

excel宏怎么写代码

文章插图
Sub AB比较插入空格()
Dim n%, i%, j%, k%, Arr, Arr来自Out()
n = Cells(Rows.Count, "A").End(xlUp).Row
【excel宏怎么写代码】 If Cells(Rows.Count, "B").End(xlUp).Row > n Then n = Cells(Rows.Co360问答unt, "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
I切速略f 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

    推荐阅读


    上一篇：破口而出什么意思

    下一篇：沙与海之歌法老的宠妃漫画集