對齊與值匹配的列（截圖）

Question

我想對齊包含「法國吐司」的列。請參閱截圖。有什麼辦法可以在Excel上做這件事嗎？失落的感覺。謝謝！

• 截圖更新！

Screenshot-Before-After

Answer 1

正如一個迅速颳起一起VBA函數，你可以使用：

Sub frenchToast() 
    Dim rngData As Range, rngRow As Range, rngFound As Range 
    Dim frenchCol As Integer, startCol As Integer, writeCol As Integer, totalCols As Integer 

    'This is the range containing your french toast phrases 
    Set rngData = Sheet1.Range("A1:D5") 

    'get the total number of columns from this range. We will use to determine how 
    ' far out we need to make the "French toast" column on sheet2 
    totalCol = rngData.Columns.Count 

    'Loop through each row in the range 
    For Each rngRow In rngData.Rows 

     'Where's my french toast? 
     Set rngFound = rngRow.Find("French Toast") 

     'only continue if you found some french toast 
     If Not (rngFound Is Nothing) Then 

      'Determine which column the french toast is in 
      frenchCol = rngFound.Column - rngRow.Cells(1).Column + 1 

      'determine which column we need to start writing the sentence 
      ' for this row 
      startCol = (totalCol + 1) - frenchCol 

      'Loop through the columns in this sentence and write them out 
      ' to sheet2 
      For writeCol = startCol To totalCol + 5 
       Sheet2.Cells(rngRow.Row, writeCol).Value = rngRow.Cells(1, writeCol - startCol + 1).Value 
      Next 
     End If 

    Next rngRow 
End Sub 

我通常不會去完全寫這個的麻煩，因爲它不是真正的但是我喜歡French Toast，如何在新紀錄中創造價值觀的問題很有意思，特別是當你考慮到你必須將它寫入一個新的範圍以適應變化的開始和職位作爲記錄。

無論如何，你必須改變Set rngData = Sheet1.Range("A1:D5")線，以適應你的數據，你可能要更改接近底部位在那裏將其寫入sheet2但除此之外，它應該確定最佳的列開始寫每個將它們劃分到新工作表，以便它不會用完列。

我已經評論過代碼，所以它應該有點自我解釋。它在列決定數學上有點棘手，但如果你遵循它，你會看到它在做什麼。