嘿，针对你提到的「从13×19规格的随机数表格左侧删除x列、底部删除x行，剩余内容移至左下角」的需求，你编写的VBA代码已经能完美实现核心功能！下面我来拆解下代码逻辑，再分享几个让代码更通用高效的优化思路：

你的代码逻辑拆解 #

先看你写的代码，核心思路非常清晰：

Public Sub shiftrandom() 
    Dim Difference As Integer 
    Difference = 5 ' 定义要删除的列数/行数
    Dim i As Integer 
    For i = 1 To Difference 
        Range("B2:B20").Delete Shift:=xlToLeft ' 删除当前表格的第一列，右侧内容自动左移
        Range("B20:N20").Delete Shift:=xlDown ' 删除当前表格的最后一行，上方内容自动上移
    Next i 
End Sub

• 你通过循环Difference次（这里是5次），每次删除当前表格的第一列——因为每次删除后右侧列会左移补位，所以下一次循环时原来的C列会变成新的B列，刚好实现删除左侧5列的效果
• 同时每次循环删除当前表格的最后一行，同理，删除后上方行上移补位，循环5次就完成了底部5行的删除
• 由于删除操作自带的xlToLeft和xlDown位移效果，剩余的内容会自动落在表格的左下角，完全符合你的需求

优化建议：让代码更通用高效 #

如果想让代码适配不同规格的表格，或者支持自定义删除数量，可以做以下调整：

1. 支持自定义删除数量（不用硬编码） #

把固定的Difference = 5改成可输入的形式，方便随时调整：

Public Sub shiftrandom() 
    Dim Difference As Variant
    Difference = InputBox("请输入要删除的列数和行数（正整数）：")
    
    ' 校验输入有效性
    If Not IsNumeric(Difference) Or Int(Difference) <= 0 Or Difference <> Int(Difference) Then
        MsgBox "请输入有效的正整数哦！"
        Exit Sub
    End If
    
    Dim tbl As Range
    Set tbl = Range("B2:N20") ' 定义原始表格范围
    Dim i As Integer 
    For i = 1 To Difference 
        tbl.Columns(1).Delete Shift:=xlToLeft ' 直接操作表格的第一列，不用写固定列标
        tbl.Rows(tbl.Rows.Count).Delete Shift:=xlDown ' 直接操作表格的最后一行
    Next i 
End Sub

2. 一次性删除，提升性能 #

如果要删除的数量很大，循环删除会有点慢，我们可以一次性选中要删除的列和行，批量删除：

Public Sub shiftrandom() 
    Dim Difference As Integer 
    Difference = 5
    Dim tbl As Range
    Set tbl = Range("B2:N20")
    
    ' 一次性删除左侧Difference列
    tbl.Columns(1).Resize(ColumnSize:=Difference).Delete Shift:=xlToLeft
    ' 一次性删除底部Difference行
    tbl.Rows(tbl.Rows.Count - Difference + 1).Resize(RowSize:=Difference).Delete Shift:=xlDown
End Sub

这种方式避免了多次循环操作，运行效率更高，尤其适合处理大表格。

内容的提问来源于stack exchange，提问作者BiggestPotato