VBA複製依賴於文本的單元格到另一個工作表上的下一個空白單元格

Question

我創建了下面的內容，我是一個絕對的noob，我從字面上將不同的信息拼湊在一起以使其工作，直到我添加了選擇如果單元格中有'r'並將其移動到'sheet7'，並且現在我在運行時遇到（需要對象）錯誤。

我真的需要一些幫助，如果你感到慷慨，我想重複與其他幾封信和牀單的練習，所以如果你可以演示額外的一個，我肯定我可以工作其餘的部分。

在此先感謝

Sub Macro1() 
 
' 
 
' Macro1 Macro 
 
' 
 

 
' 
 
    Range("I16").Select 
 
    Selection.Copy 
 
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select 
 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
 
     :=False, Transpose:=False 
 
    ActiveCell.Offset(0, 1).Select 
 
    Application.CutCopyMode = False 
 
    Selection.Copy 
 
    Range("J20").Select 
 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
 
     :=False, Transpose:=False 
 
    ActiveWindow.SmallScroll Down:=-27 
 
    Range("I16").Select 
 
     If Cell.Value = "R" Then 
 
    Range("J20").Select 
 
    Selection.Copy 
 
    Sheets("Sheet7").Select 
 
    Range("B" & Rows.Count).End(xlUp).Offset(1).Select 
 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
 
     :=False, Transpose:=False 
 
    End If 
 
End Sub

Answer 1

一般編寫宏時，它是很好的做法，以避免選擇單元格。選擇一個單元格實際上只是一個人做的事情，但在VBA中，我們可以直接引用單元格而不用觸摸它。

重寫宏來避免所有的感觸：

Sub Macro1() 

    'Make a variable to store the cell found 
    Dim lastCell as Range 

    'find the last cell in Column A of the active sheet 
    lastCell = Range("A" & Rows.Count).End(xlUp).Offset(1) 

    'Paste in the I16 value 
    lastCell.value = RangE("I16").value 

    'Grab whatever is hanging out in Column B next to the last cell and stick it in J20 
    Range("J20").value = lastCell.Offset(0,1).value 

    'Test to see if I16 has value "R" 
    If Range("I16").value = "R" Then 

     'Find the last row in Sheet7, Column B and store it to the variable 
     lastCell = Range("B" & Rows.Count).End(xlUp).Offset(1) 

     'Copy J20 value to the lastCell in Sheet 7, Column B 
     lastCell = Range("J20").value 
    End if 


End Sub 

我不知道你在哪裏得到你報告的錯誤。這可能與你的工作簿有關，所以我們必須坐在它的前面來追蹤它。但是這個重寫可能會糾正它。

此外，目前還不清楚在這個過程中發生了什麼。我的猜測是，活動工作表的B列中有一個公式，它對我們從I16粘貼的值做了一些處理。粘貼和計算後，我們抓住它並將其粘貼在J20中，如果I16等於"R"，則我們將該計算出的J20的值超過Sheet7。如果這聽起來是正確的，那麼上面的宏應該做的伎倆。另外，如果發生了什麼情況，那麼也許你可以分享你在B列中的公式。我們可以在VBA中做這種計算，並在這個宏中節省大量的步驟。