Excel에서 데이터를 분할하려고합니다.

Question

많은 양의 데이터가있는 시트가 있습니다. 데이터는 html 파일에서 복사되므로 붙여 넣을 때 하나의 셀에 있습니다. 데이터는 다음과 같습니다

Cell A 
---------------- 
row 1) Text: name of my text 
---------------- 
row 2) Link: link of my text 
---------------- 
row 3) num: 34 
---------------- 
row 4) Some text 
---------------- 
data Repeat 33858 row's. 

어떤 공식이나이

 Cell A   | Cell B   | Cell C | Cell D 
-------------------------------------------------------- 
Row 1) Text   | Link   | num | Some text  
__________________________________________________________ 
Row 2) Name of my text | Link of my text | 34  | Some text 
________________________________________________________ 
Row 3) Name of my text2 | Link of my text2 | 35  | Some text2 

등과 같은 시트에이 데이터를이 데이터를 변환하거나 재 배열하는 방법. 내 질문을 이해하고 나를 도우려는 바램입니다.

Answer 1

당신은 Excel로 가져온 웹 사이트의 텍스트를 원한다고 말하고 싶습니다.

그래서 외부 데이터이>> 웹에서 를 클릭 링크를 삽입 얻을 의 데이터 탭>로 이동합니다.

다른 언어로 된 모든 것이 똑같지는 않기 때문에 나는 영어로 잘 번역되기를 바랍니다.

Answer 2

Sub Main() 

    ' decleration 
    Dim rowSource As Integer, rowDest As Integer 
     rowSource = 1 
     rowDest = 2 

    ' titles in destination sheet 
    With Application.Sheets("Sheet2") 
     .Range("A1").Value = "Text" 
     .Range("B1").Value = "Text" 
     .Range("C1").Value = "num" 
     .Range("D1").Value = "Some text" 
    End With 

    ' loop through all rows in source sheet 
    Do While Range("A" & rowSource).Value <> "" 

     ' copy data to destination in sheet2 
     With Application.Sheets("Sheet2") 
      .Range("A" & rowDest).Value = Range("A" & rowSource + 0).Value 
      .Range("B" & rowDest).Value = Range("A" & rowSource + 1).Value 
      .Range("C" & rowDest).Value = Range("A" & rowSource + 2).Value 
      .Range("D" & rowDest).Value = Range("A" & rowSource + 3).Value 
     End With 

     ' next group 
     rowDest = rowDest + 1 
     rowSource = rowSource + 4 

    Loop 

End Sub 

당신에게서 필수 : ​​

• 는 "시트 1"에서 "시트 2"
• 를 작성하여 33,858 데이터는