将单行数据分割成多个独特的行到一个新工作表中，以包含作为值和单元格内容的标题作为值

Question

我发现了相当多的数据拆分VBA代码帖子，但没有按内容拆分它并拉入标题并将结果放入新工作表（我需要将原始数据保留在原始状态）。

我有一个电子表格，其中包含国家作为标题的列中的值，我需要将每行分割成新工作表中的新行，并在新列中列出国家和来自同一国家/地区列中的值新的一排。

我想忽略任何国家头，其中单元的内容是空白的，如与行的例子3.

这是原始数据的一个小例子：

，这就是我需要3行变成：

虽然我问VBA代码，我还不知道怎么写VBA，只调整，我已经在互联网上找到适合我的场景代码。

Answer 1

既然你是新的编码VBA，我用For和If做了一个简单的代码，试着学习这个函数。 我没有声明每个变量，尝试声明它们并了解数据类型。 LAST_ROW LAST_COLUMN和是变量，可以帮助很多在Excel VBA中，主要是为了使动态电子表格

Sub test() 
'Declare variables here 
Dim sht1, sht2 As Worksheet 

'sht1 has the data and sht2 is the output Worksheet, you can change the names 
Set sht1 = ThisWorkbook.Worksheets("Sheet1") 
Set sht2 = ThisWorkbook.Worksheets("Sheet2") 

last_row1 = sht1.Range("A65536").End(xlUp).Row 
last_column = sht1.Cells(1, sht1.Columns.Count).End(xlToLeft).Column 
x = 1 

'Add header 
sht2.Cells(1, 1) = "Company" 
sht2.Cells(1, 2) = "Country" 
sht2.Cells(1, 3) = "Status" 
'Data add 
For i = 2 To last_row1 
'Assuming Company is in Column 1 or A 
    For k = 2 To last_column 
     'If cell is different from blank then write data 
     If sht1.Cells(i, k) <> "" Then 
     sht2.Cells(x + 1, 1) = sht1.Cells(i, 1) 
     sht2.Cells(x + 1, 2) = sht1.Cells(1, k) 
     sht2.Cells(x + 1, 3) = sht1.Cells(i, k) 
     x = x + 1 
     End If 
    Next k 
Next i 

MsgBox "Data Updated" 
End Sub 

下一次，尝试学习一些编码和发布您的代码。