关于VBA中如何剪切

sub test()

allCount=sheets(1).[t70000].end(xlup).row

for i=1 to allCount

if sheets(1).range("T" & i).value like "代金引换" then

 sheets(2).range("T" & i).value= sheets(1).range("T" & i).value

elseif sheets(1).range("U" & i).value like "代金引换" then

sheets(2).range("U" & i).value= sheets(1).range("U" & i).value

elseif sheets(1).range("历衡V" & i).value like "代金引换" then

sheets(2).range("V" & i).value= sheets(1).range("V" 李码& i).value

elseif sheets(1).range("W" & i).value like "代金引换" then

sheets(2).range("W" & i).value= sheets(1).range("哪烂哪W" & i).value

end if

next

end sub

这是最简单的方法，如果列数较多的时候，可以用数组的方法

1、首先在电脑中打开Excel，进入VBA页面，实现把单元格内容清空的代码如下。

2、然后定义网世橡址的代码如下。

3、然后实现创建对象HTML的方法代码，如下图所示。

4、然后雹档输入发送请搜肆旁求和等待请求的方法代码。

5、最后把内容保存在表格中的方法代码，如下图所示，就完成了。

---