如果有基于两个单元格的两个条件

Question

我需要在我的代码中添加第二个条件。

如果 Len = 3 并且 UPC 为空，则将组代码向左移动 1 列。 我已经解决了行动部分。第二个条件把我难住了。

我在这两个条件下尝试了

And

。

我尝试了你在下面看到的内容。

组代码位于 C 列中。
UPC 是 E 列。
如果 C 中的单元格，len = 3 且 UPC 位于同一行，E 列 = ""（空白），则继续，否则跳过。

我补充说：

Dim UPC As Range
Set UPC = Range("E2:E" & LastRow)
If UPC.Value = "" Then

这是代码：

'Moving Group Codes
Dim cell As Range
Dim UPC As Range
Set UPC = Range("E2:E" & LastRow)
For Each cell In Intersect(Range("C:C"), ActiveSheet.UsedRange)
    If Len(cell.Value) = 3 Then
        If UPC.Value = "" Then  '<<<<<<this is where i get my error.
            cell.Cut Destination:=cell.Offset(columnoffset:=-1)
        End If
    End If
Next cell

Answer 1

试试这个：

Dim ws As Worksheet, cell As Range
Dim UPC As Range

Set ws = ActiveSheet
Set UPC = ws.Range("E2:E" & LastRow)
For Each cell In Intersect(ws.Range("C:C"), ws.UsedRange).Cells
    If Len(cell.Value) = 3 Then
        If Len(cell.EntireRow.Columns("E").Value) = 0 Then  '<< check ColE value on same row
            cell.Cut Destination:=cell.Offset(columnoffset:=-1)
        End If
    End If
Next cell