excel 如果有两个条件基于两个细胞

yqkkidmi 于 2023-11-20 发布在其他

关注(0)|答案(1)|浏览(84)

我需要在代码中添加第二个条件。
如果Len = 3且UPC为空，则将Group Code左移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

型

的数据

excel

来源：https://stackoverflow.com/questions/76509002/if-with-two-conditions-based-on-two-cells

1条答案

按热度按时间

jk9hmnmh1#

试试这个：

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

字符串

赞(0）回复(0）举报 2023-11-20

我来回答

excel 如果有两个条件基于两个细胞

1条答案

相关问题

热门标签

最新问答