VBA Excel删除表格行并向上移动,而不是整行

时间:2016-06-30 03:51:01

标签: excel vba excel-vba ms-office

我的情况就像这张图片一样: Screenshot

如何仅删除表示为红色的单元格并将下面的单元格向上移动?

下面有一张表,不应该受到影响。有人可以帮忙吗?

由于

杰文

3 个答案:

答案 0 :(得分:1)

删除工作表中的单元格并调整表格:

$(function() { // yes = 1, no = 0 function recordClick(val) { console.log('sending...'); // return ajax call, which returns a Promise object return $.ajax({ url: 'controller/method', method: 'POST', data: {the_value: val}, complete: function() { console.log('Data was sent!'); } }); } $( "#dialog-confirm" ).dialog({ modal: true, buttons: { "Oui": function() { recordClick(1).then(function() { $( this ).dialog( "close" ); }); }, "Non": function() { recordClick(0).then(function() { $( this ).dialog( "close" ); }); } } }); });

答案 1 :(得分:1)

可以通过记录宏以删除表行来找到答案。 此示例来自for循环,但是可以修改为工作。 在表格行中选择要删除的单元格 请记住,表行与工作表行不同。在这种情况下,我的表格上方是空白行,标题行是-2

    Cells(i, 4).Select 
    Selection.ListObject.ListRows(i - 2).Delete 

答案 2 :(得分:0)

您可以使用

ListObject("TableName").ListRows(RowIndex).Delete

在底部添加一个空行。

ListObject("TableName").ListRows.Add