如果聲明覆制單元格，如果它們不是空白，請不要複製

Question

我只想問如何編寫if語句來複制和粘貼單元格範圍內的數據如果它們不是空的，並且if某些範圍的單元格是空的，那麼它不應該複製任何東西。

任何建議都非常感謝。 謝謝！從第1列（UsedRange）

Answer 1

該拷貝的細胞的值到第2列，如果該細胞是不是空的：

---

Option Explicit 

Public Sub copyIfNotEmpty() 

    Dim cel As Range, lRow As Long 

    'next line determines the last row in column 1 (A), of the first Worksheet 
    lRow = Worksheets(1).UsedRange.Columns(1).Rows.Count 

    'iterate over every cell in the UsedRange of column A 
    For Each cel In Worksheets(1).Range("A1:A" & lRow) 

     'cel represents the current cell 
     'being processed in this iteration of the loop 

     'Len() determines number of characters in the cell 
     If Len(cel.Value2) > 0 Then 

      'if cel is not empty, copy the value to the cell next to it 

      'cel.Offset(0, 1): cell that is offset from current cell 
      ' - 0 rows from current cell's row (1 would be row below, -1 row above) 
      ' - 1 column to the right of current cell's column (-1 is column to its left) 

      cel.Offset(0, 1).Value2 = cel.Value2 

     End If 

    Next 'move on the next (lower) cell in column 1 

End Sub 

Answer 2

參見示例視頻這裏，我提供2個的例子中，迴路和過濾器。 https://youtu.be/a8QJ9BAHlhE

sample workbook.

Sub LoopExample() 
    Dim Rws As Long, rng As Range, c As Range 

    Rws = Cells(Rows.Count, "A").End(xlUp).Row 
    Set rng = Range(Cells(2, "A"), Cells(Rws, "A")) 

    For Each c In rng.Cells 
     If c <> "" Then 
      c.Copy Cells(Rows.Count, "C").End(xlUp).Offset(1, 0) 
     End If 
    Next c 
End Sub 
Sub FilterExample() 
    Dim Rws As Long, rng As Range 

    Rws = Cells(Rows.Count, "A").End(xlUp).Row 

    Columns("A:A").AutoFilter Field:=1, Criteria1:="<>" 
    Set rng = Range(Cells(2, "A"), Cells(Rws, "A")) 
    rng.Copy Range("D2") 
    ActiveSheet.AutoFilterMode = 0 
End Sub