小编gue*_*st1的帖子

我有一个名为"Start"的范围位于单元格"I21".我还有另一个名为"End"的范围位于单元格"Q21".我想编写一个代码来删除它们之间的所有列.换句话说,我想完全删除J,K,L,M,N,O,P列.这是我的代码:

with ThisWorkbook.sheets("Sheet1")
    'unprotect sheet
    .Columns(.Range("Start").Column+1 & ":" & .Range("End").Column-1).Select
     Selection.Delete Shift:xlLeft
End with 

当谈到第一行.Columns ...它给我一个错误,因为未定义的应用程序.请帮忙,

这个问题让我抓狂.我有以下代码:

'unprotect sheet
If.Range("Start").Row+1<.Range("End").Row then
  .Rows(.Range("Start").Row+1 & ":" & .Range("End").Row-1).Select
  Selection.Delete Shift:=xlUp
  'protect sheet
End if

当我在调试模式下运行它并跟踪代码时,它完美地工作.但是当以正常模式运行代码(而不是调试)时,它给出了一条错误消息,因为"Range类的select方法失败了"这个错误发生在行中:.Rows(.Range("Start").Row +1 .... 就在IF语句之后.有任何想法吗？请帮忙.

我在给文件夹A中有许多文件.我想将这些文件逐个移动到文件夹B. 即,我正在处理每个文件.所以在我自己的处理完成后,我想将处理过的文件移动到另一个文件夹.我怎样才能做到这一点？请帮忙!