我一直在嘗試使用一個小宏來幫助我根據相鄰列中的一串文本快速將一個值復制到一個單元格中。我使用宏記錄器只選擇下一個單元格然后復制下來，但是，對于查詢中的資料量，這將是很多代碼和很長時間來記錄。我想我需要使用回圈或 If-Then 函式，但我不確定如何設定它。我已經查看了這里的許多執行緒，但是當我嘗試用我的范圍替換建議的代碼時它不起作用。
它也不需要基于字串“Temperature Wtr”。如果我能弄清楚如何將氯復制下來，自由值一個單元格一直向下，我也希望如此。本質上，我想要的是每一行用“氯，游離”值/結果替換“溫度 Wtr”值/結果，而無需選擇每個單元格并一次復制一個。
uj5u.com熱心網友回復：
我希望我做對了。此 makro 將在“E”列上包含文本“Chlorine, Free”的每個單元格復制下方一個單元格的“Chlorine, Free”的“Result”值。
Public Sub DoThis()
Dim c As Range
For Each c In ActiveSheet.Range("E:E").Cells
If (c.Value = "Chlorine, Free") Then
c.Offset(1, 1).Value = c.Offset(0, 1).Value
End If
' We dont want to check more cells then necessary
If (c.Row > ActiveSheet.UsedRange.Rows.Count) Then
Exit For
End If
Next
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/439907.html