使用宏填充表單2

我是一名優秀的新手。我正在嘗試編寫宏來基於表單1填充sheet2。我已經在工作表Sheet1以下欄目：名稱CustomName CustomeValue 一灣11 站點英國機架3 B位英國的B機架2 ç空空使用宏填充表單2

表2 - 輸出應該如下名稱灣網站機架一個11英國3 b英國2 ç

我曾嘗試編寫宏按行匹配行，比較和選擇填充，但在巨大的日期在腳本中的隨機填充，任何幫助，在此將受到高度讚賞。

代碼片段：

Sub populatingsheet2() 

    x = 2 
    y = 2 
    Sheet2.Cells(y, 1) = Sheet1.Cells(x, 1) 
    Do While x <= 4 

     If Sheet1.Cells(x, 1) = Sheet1.Cells(x + 1, 1) Then 

      ‘I want unique records 
      'MsgBox "Identical" 
      If Sheet1.Cells(x, 2) = "Bay" Then 
       Sheet2.Cells(y, 2) = Sheet1.Cells(x, 3) 
      End If 
      If Sheet1.Cells(x, 2) = "Site" Then 
       Sheet2.Cells(y, 3) = Sheet1.Cells(x, 3) 
      End If 
      If Sheet1.Cells(x, 2) = "Rack" Then 
       Sheet2.Cells(y, 4) = Sheet1.Cells(x, 3) 
      End If 

     Else: 'MsgBox "Not Identical" 
     End If 
     x = x + 1 
     y = y + 1 

    Loop 

End Sub

來源

2013-04-09 Amit Moses Albert

你能告訴我們你有什麼。我們可以嘗試改進它，並且能夠更好地瞭解您的情況。 – 2013-04-09 09:32:35

爲什麼不通過激活宏記錄器（** Tools> Macro> Record New Macro ... **）來開始，然後執行諸如複製和粘貼一個單元格，一系列單元格，整行，整列以及最後，在停用/關閉錄像機之前複製工作表。這會給你一些代碼來看看和玩弄。之後，我們可以幫助您改進自己的代碼，而不是向您提供我們的代碼！ – 2013-04-09 10:06:28

感謝KazJaw和Philip：我的腳本一直在努力，做了一些基本的東西，但現在它已經完全損壞。我很快就會給你我所做的。所以你們可以幫助我。 – 2013-04-09 10:25:38

那麼，你有沒有考慮，你可以做表2中的所有，使用公式，而宏？

也許像這樣在表2 Colummn B：

=IF(Sheet1!B:B="Bay",Sheet1!C:C,"")

在C列

=IF(Sheet1!B:B="Site",SHeet1!C:C,"")

心連心

菲利普

來源

2013-04-09 11:38:02

使用宏填充表單2

回答

相關問題