How to put the table data from left to right, from top to bottom order fill in table 2, table 2 is now I manually paste copied in

CodePudding user response:

Fill each line to form the most 24 data

CodePudding user response:

Write well, code is as follows:

 
Option Explicit 

Sub test () 
Dim As Long I 
For I=1 To 100 
Dim j As Long 
For j=1 To 13 
Sheet1. Cells (I, j)="A" & amp; (200 + I) & amp; "3-d" & amp; J 
Next 
Next 
End Sub 

Run the example:

Download address:
Link: https://pan.baidu.com/s/17duDjc8cA5N8S5X3B9ljpA
The extracted code: ynx0