Question

我为这个糟糕的问题名称道歉，如果有人在最后提出更好的建议，请告诉我。

我有一个范围，例如A1：M4，第1行中的月份和第M列中每行的总数。对于每个单元格，除了尚未发生的月份之外还有值。因此，如果在11月，截至11月的所有内容都填写，12月的列L为空，列M的总数从1月到11月（col A到col L）。另一个例子，如果在5月，1月，2月，3月，4月和5月填写，但不是其他月份，而M列的总数。

我想创建代码，将所有值复制到当前月份，包括每行的总数，并粘贴到powerpoint中（我知道如何复制并粘贴到ppt中）。我该如何复制？

当前代码：

rng=Range("a1",Range("a1").End(xldown).End(xlright))

复制整个范围。如何删除没有值的列。我想创建一个计数来计算从A列到L列的值，但在如何消除总列和填充列之间的差异时遇到问题

Answer 1

此过程可以帮助您查找空列。

Sub FindBlankColumns()
'Step1:  Declare your variables.
    Dim MyRange As Range
    Dim iCounter As Long
'Step 2:  Define the target Range. Change to fit your needs
    Set MyRange = ActiveSheet.UsedRange

'Step 3:  Start reverse looping through the range.
'You can modify this according to your needs.
    For iCounter = MyRange.Columns.Count To 1 Step -1

'Step 4: If entire column is empty then do some stuff.
       If Application.CountA(Columns(iCounter).EntireColumn) = 0 Then

          ' Insert your code here to do what you want with empty column.

       End If
    Next
End Sub

在范围内删除，而不删除工作表

1 个答案: