我在 VBA 代码方面相对缺乏经验,但是有一个我试图根据行中列出的项目的“状态”来组织的工作簿。
我在“M”列中有一个下拉框,允许用户选择“HOLD”或“RELEASED”...根据此值,需要将行项目复制并粘贴到工作表 2 中的同一行中,如果value = "RELEASED"(行项目范围示例为 ("B7:N7")(工作表格式完全相同)。我有这方面的代码,但我需要从工作表中删除 "RELEASED" 行项目1 复制并粘贴到工作表 2 后。
这是我所拥有的...(零件暂存日志 = 表 1 ...已发布的零件日志 = 表 2)
Public Sub CopyPasteRows()
Sheets("Parts Staging Log").Select
' Find the last row of data
FinalRow = Range("B828").End(xlUp).Row
' Loop through each row
For x = 7 To FinalRow
' Decide to copy based on column M value "RELEASED"
ThisValue = Range("M" & x).Value
If ThisValue = "RELEASED" Then
Range("B" & x & ":BM" & x).Copy
Sheets("Released Parts Log").Select
NextRow = Range("B828").End(xlUp).Row + 1
Range("B" & NextRow).Select
ActiveSheet.Paste
Sheets("Parts Staging Log").Select
End If
Next x
End Sub
如果有人可以帮助我删除原始订单项,那就太好了。其他意见也接受!
谢谢!