微信多开虚拟定位软件_综合

微信多开虚拟定位软件

Script Code

复制代码代码如下:

   
Const xpRangeAutoFormatList2 = 11  
   
Set objExcel = CreateObject("Excel.Application")  
   
objExcel.Visible = True  
   
Set objWorkbook = objExcel.Workbooks.Add()  
   
Set objWorksheet = objWorkbook.Worksheets(1)  
   
k = 1  
   
For i = 1 to 10  
   
    For j = 1 to 10  
   
        objWorksheet.Cells(i,j) = k  
   
        k = k + 1  
   
    Next  
   
Next  
   
Set objRange = objWorksheet.UsedRange  
   
objRange.AutoFormat(xpRangeAutoFormatList2)

微信多开虚拟定位软件