找到一列中的任何文本 - 然後移動找到的文本旁邊的其他數字

所以正如標題所說，我試圖尋找上校℃，如果文本/數字被發現然後將來自其他小區的文本山口d找到一列中的任何文本 - 然後移動找到的文本旁邊的其他數字

所以，給它更多的只是

EG：有在C10一些文本 - 所以我想從I8文本複製到D10（新數據始終是兩排和Col I）

我一直與玩弄此VBA代碼

Dim find As String 
Dim findcell As Range 

FindString = "*" 
'Not sure how to find anything - But if I put a string that actually is in the sheet then it moves the example same one to Col D 

For Each findcell In Range(ActiveSheet.Range("C1"), ActiveSheet.Range("C250").End(xlUp)).Cells 
    If InStr(findcell, FindString) > 0 Then findcell.Offset(, 1) = FindString 
Next findcell

任何幫助/建議將大大理解

來源

2013-10-01 user2761190

試試這個：

Dim findcell As Range 

For Each findcell In Range(ActiveSheet.Range("C3"), ActiveSheet.Range("C250").End(xlUp)).Cells 
    If Len(findcell) > 0 Then findcell.Offset(0, 1) = findcell.Offset(-2, 6) 
Next findcell

當然但這隻會從3行工作，並開始像你說的，新的數據始終是兩排。

來源

2013-10-01 10:27:10 Ssc456

謝謝！很好地工作 – user2761190

我可以問你一個修改嗎？我想知道如何將字母A或B添加到單元格E（我的數據是很多2），即C10有一些數據，那麼C11，那麼什麼都沒有，直到C25/C26等。我想把A放入在E11中的E10和B（但不知道如何檢查上面/下面的文本）希望是有道理的 – user2761190

我的新代碼:(只添加了一行，似乎工作）對於每個findtext在範圍（ActiveSheet.Range（「如果Len（findtext）> 0則findtext.Offset（0,1）= findtext.Offset（-2,7）如果Len（findtext）> 0，（findtext）> 0然後findtext.Offset（0，2）= findtext.Offset（0，1）+ findtext.Offset（0，0）下一個findtext我添加了一個新行（正如你從閱讀它總計） - – user2761190

找到一列中的任何文本 - 然後移動找到的文本旁邊的其他數字

回答

相關問題