More than a line in the excel column into more than one column-CodePudding

CodePudding user response:

Effect:

Add the following procedure code to Sheet1 code form, press F5 to run:

 
Sub ColToRow () 
Dim x As Integer 
X=8 'table 2 column 
Dim y As Integer 
The beginning of the line y=1 'table 2 

Dim As Integer I 
For I=2 To 4 'data in table 1 To start and end row 
Dim j As Integer 
J=2 'data start line of the table 1 
While Cells (j, I) & lt;> "
"'start transformation, converts the contents of table 1 to table 8. 
'the three columns of data: 
Cells (y, x)=Cells (1, I) 'the first x listed in table 2 in the first row data set to table 1 y of line 1 in the first column data. I 
Cells (y, x + 1)=Cells (j, 1) 'the first x + 1 table 2 listed the first line y data set to the first line j column 1 data in table 1. 
Cells (y, x + 2)=Cells (j, I) 'table 2 x + 2 column in the first row data set to table 1 y of the ith line j column data. 
J=j + 1 'data row j down in table 1. 
Y=y + 1 'data line of the table 2 y down. 
Wend 
Next 
End Sub

Download address:
Link: https://pan.baidu.com/s/1UntqZb2jb2cIMOOCRoFCjg
The extracted code: bdil