如何在表格中循環生成來自VBA中每一行值的表格

-1

我是VBA領域的新手，但我知道我們可以做到這一點。從包含X（可變）行和AN（40）列（圖1）的表中，我想根據單元格中的單元格填充其他工作表中的單元格（圖像2和3）。如何在表格中循環生成來自VBA中每一行值的表格

如何循環遍歷我的表（img1），根據表中的行數創建工作表，並從該表中取出單元格以填充剛創建的新工作表？

我真的需要這樣做，因爲我會在我的真正表中有350行。

**澤夫斯皮茨正確回答我的問題

我說明我與這些照片的項目：

my project in image

來源

2017-06-14 AlexGeo

有什麼碼你到目前爲止嘗試過？ – braX

這只是我的項目的一部分，第一部分是向工作表添加訪問表，然後使用該表填充另一個工作表，正如您可以看到的圖像2和3一樣。我仍處於搜索模式。 – AlexGeo

您不應該將輸入和輸出數據作爲圖像;最好將它們作爲文本包含在你的問題中。 –

這應該是一個開始：

Function LastWorksheet() As Worksheet 
    Set LastWorksheet = Worksheets(Worksheets.Count) 
End Function 

Sub Main() 
    Dim data() As Variant 
    data = Worksheets("Sheet1").UsedRange.Value 

    Dim wks As Worksheet 
    Dim row As Integer, col As Integer 
    For row = 1 To UBound(data) 
     Set wks = Worksheets.Add(After:=LastWorksheet) 
     wks.Name = "Output " & row 
     wks.Cells(1, 1) = "What is the title?" 
     wks.Cells(2, 1) = data(row, 1) 
     wks.Cells(4, 1) = "What is the description?" 
     wks.Cells(5, 1) = data(row, 2) 
     wks.Cells(7, 1) = "What is the color?" 
     wks.Cells(8, 1) = data(row, 3) 
    Next 
End Sub

來源

2017-06-14 23:21:04

謝謝Zev Spitz！這確實是一個非常好的開始。現在，如果我想根據我的標題attribut命名我的工作表？ – AlexGeo

@AlexGeo有一行代碼設置工作表名稱。修改該行以使用數組中的標題。 –

而不是創建工作表，是否有可能創建工作簿？ – AlexGeo

如何在表格中循環生成來自VBA中每一行值的表格

回答

相關問題