複製和傳送單元格內容到另一個

-1

僞代碼的程序我寫情況如下：複製和傳送單元格內容到另一個

激活工作表Sheet1 - 更名爲「信息」
定位包含細胞中的特定詞。例如。「NAME」
選擇包含「NAME」的單元格旁邊的直接單元格。（偏移（1,0））
複製單元格內容
激活另一片 - '結果'
粘貼在電池B2的複製的內容。

想法是找到一個包含變量的單元格，將單元格內容複製到其旁邊並將複製的結果傳送到另一個表單中。

請注意，多個變量將被定位，並且其旁邊的單元格內容將被複制到同一個工作表中並被傳送到另一個工作表中 - 編譯結果。

我希望能夠爲多個工作表重複此過程。

任何人都可以請指導我與命令和方法與實現此？

非常感謝您分享更高效的方法！

來源

2016-12-31 Dark Magician

記錄一個宏，然後將它大量使用的'Activate' /'Select' /'ActiveXXX' /'Selection'模式替換爲完全限定的範圍引用（即使用'ActiveCell.Copy'使用'Worksheets（「mySheetName」）.Range（「myCellAddres」）。複製'和類似的東西。如果你遇到困難，請在仔細閱讀後回到代碼和它的問題[我如何提出一個好問題？]（http://stackoverflow.com/help /如何問）和[如何創建一個最小，完整和可驗證的例子]（http://stackoverflow.com/help/mcve） – user3598756

你知道所有的步驟，甚至你需要的功能，現在全部你需要做的就是使用一個名爲「Google」的新網站，相信我，在15分鐘內你會得到你需要的所有信息 –

-1

你想要像

Dim FindString As String 
Dim Rng As Range 
FindString = "NAME" 
Set Rng = Worksheets("Information").Cells.Find(What:=FindString) 
If Not Rng Is Nothing Then 
    Rng.Offset(0,1).Copy Worksheets("Results").Range("B2") 
End If

一些代碼的需要進行調整，以更好地滿足您的需求，但我不想做所有你爲你工作。

來源

2016-12-31 07:09:38 YowE3K

你不應該做任何工作，所以自稱**不是代碼編寫服務**。請幫助那些通過發佈實際代碼而不是僞代碼來展示一些工作的人ocode。它通過回答不符合現場標準的問題來降低網站的價值。 –

複製和傳送單元格內容到另一個

回答

相關問題