Sub main()Dim LastRow As Long, I As Long '声明lastlow和i为长整型变量Dim arr '声明变量arrLastRow = Cells(Rows.Count, "F").End(xlUp).Row '将F列有数据的最后一行行号赋值给变量lastrowRange("J8:J" & LastRow).ClearContents '清空J列8到lastrow行数据arr = Range("F8:J" & L...
Dim lastrow As Long, x As Long '定义两个长整形变量 x = 1 lastrow = [a65546].End(xlUp).Row() '定义lastrow为第一行最后使用的行数 For i = 1 To lastrow - 2 '从1开始到lastrow-2进行循环 For j = i + 1 To lastrow - 1 '类似循环 For k = j + 1 To lastrow '...
通过接口和内部类 举个例子吧 比如new一个线程 c#里是这样 Thread tr = new Thread(new Thread...