VBA代码：将第15列到188列的非空单元格左移

下面是一个示例VBA代码，它可以实现将从第二行开始的第15列到第188列的非空单元格左移的功能：

Sub MoveLeftIfNotEmpty()
    Dim lastRow As Long
    Dim lastCol As Long
    Dim i As Long
    Dim j As Long
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
    
    For i = 2 To lastRow
        For j = 15 To 188
            If Not IsEmpty(Cells(i, j)) Then
                Cells(i, j - 1).Value = Cells(i, j).Value
                Cells(i, j).ClearContents
            End If
        Next j
    Next i
    
End Sub

该代码首先找到最后一行和最后一列，然后循环遍历第二行到最后一行和第15列到第188列。如果当前单元格不为空，则将其左侧的单元格设置为当前单元格的值，然后清除当前单元格的内容。这样，如果某个单元格之前不为空，它将被移动到其左侧的单元格。