VBA用对象变量从A2开始自动输出1至9

laoau138

VBA用对象变量从A2开始自动输出1至9

dsmch

1. Sub Macro1()
   
2. For i = 2 To 16
   
3.     If Cells(i, 1).MergeCells Then
   
4.         n = Cells(i, 1).MergeArea.Count
   
5.     Else
   
6.         n = 1
   
7.     End If
   
8.     s = s + 1
   
9.     Cells(i, 1) = Application.WorksheetFunction.Text(s, "[dbnum2]")
   
10.     i = i + n - 1
    
11. Next
    
12. End Sub

复制代码