JSA删除指定列行

blackwolf88

根据“此列删除”关键词，删除这一列。根据“此行删除”关键词，删除这一行。


多个工作表，有这些关键词的，都删除行或列。

拜托各位大神，谢谢

LIUZHU

问题没讲清楚，附件也不完整

blackwolf88

LIUZHU 发表于 2023-3-25 08:38
问题没讲清楚，附件也不完整

谢谢关注

左边表格是需要的正式数据，在其他列、行里备注了些备忘文字。
想把所有工作表里标记“此列删除”“此行删除”的指定列、指定行一键删除。.没标记的列行，就不删除。


再次拜谢，

LIUZHU

blackwolf88 发表于 2023-3-25 09:54
谢谢关注

左边表格是需要的正式数据，在其他列、行里备注了些备忘文字。

备忘的文字，是针对于那一列的，这个可要说清楚啊

blackwolf88

LIUZHU 发表于 2023-3-25 10:11
备忘的文字，是针对于那一列的，这个可要说清楚啊

备忘文字，所在列不固定，乱的，没规则，和左侧正式数据列也没有对应关系。所以用“此列删除”标记下的。

LIUZHU

blackwolf88 发表于 2023-3-25 11:10
备忘文字，所在列不固定，乱的，没规则，和左侧正式数据列也没有对应关系。所以用“此列删除”标记下的。

你还是举个例子说明下为好，否则还是一头雾水

blackwolf88

LIUZHU 发表于 2023-3-25 11:37
你还是举个例子说明下为好，否则还是一头雾水

劳烦了，这个就是具体例子了，，我也不知道咋举了。就是把正式数据区域周围的备忘文字行、列，统统给删除了。
想法是查询所有工作表，遇到有“此列删除”“此行删除”单元格的，就删除所在列，行。这样就只保留正式数据了发给其他人了，因为有好几个工作表，每次手动删除烦，不写备忘文字，时间长了就忘记一些特殊情况了。

yzjhhd

function 删除(){
for (var i=Cells(Rows.Count, 1).End(xlUp).Row;i>=11;i--){
  if(Range("a"+i).Value2=="此行删除"){
    Rows(i).Select();                 
             Selection.Delete(xlShiftUp);
  }
}
for (var x=Cells(3, 255).End(xlToLeft).Column;x>=9;x--){
  if(Cells(3,x).Value2=="此列删除"){
    Columns(x).Select();                 
    Selection.Delete(xlShiftToLeft);
  }
}
}