根據第一張工作表中第二個單元格的值，將數據從一個單元格復制到另一張工作表中的單元格？

Question

我試圖根據第三個單元格的值（“是”或空白）將一個工作表中一個單元格的值復制到另一工作表中的單元格。 例：

Cell A1: Monday
Cell B1: Yes

如果B1 = Yes則將單元格A1的值復制到sheet2單元格B5 。 如果單元格B2為空（或“否”），則什么也不做。 這可能嗎？
我試圖通過使用if語句來做到這一點，但沒有任何運氣。

[編輯]這是我的代碼（但尚無法使用）：

Sub ColorWhite()
Range("B01:B15").Value = Yes

With Selection.Font
    .ThemeColor = x1ThemeColorDark1
    .TintAndShade = 0
End

Range("B01:B15").Value Not Yes
Selection.EntireRow.Hidden = True

End Sub

Answer 1

您可以在Sheet2的單元格B5上嘗試使用此公式

IF(Sheet1!B1 = "Yes", A1, "")

如果你想同時檢查B1 = Yes 並 nothing 或 No在B2 ：

IF(AND(Sheet1!B1 = "Yes", OR(Sheet1!B2 = "", Sheet1!B2="No")), A1, "")

並將其拖放到需要的范圍內

---

[編輯]這是根據您的評論進行的VBA嘗試。 我將其保持簡單（這樣做會更有效），以便易於理解和適應：

Sub ColorWhite()
Dim c As Range
For Each c In Worksheets("Sheet1").Range("B1:B15")
    If c.Value = "Yes" Then
        With Worksheets("Sheet2").Range(c.Address).Offset(0, -1)
            .Value = Worksheets("Sheet1").Range(c.Address).Offset(0, -1).Value
            With .Font
                .ThemeColor = xlThemeColorDark1
                .TintAndShade = 0
            End With
        End With
    End If
Next c
End Sub