EXCEl VBA 单据批量打印之列的值拆分赋值给非连续的单元格

Option Explicit

Sub FillSelection()
    Dim rng As Range
    Dim rng2 As Range
    Dim arr As Variant
    Dim i As Integer
    Dim j As Integer
    Dim cell As Variant
    Dim temp As Variant

    Set rng = Range("A1:A10")
    Set rng2 = Selection  
    If rng.Cells.Count <> rng2.Cells.Count Then
        MsgBox "Selection and References  Not Equal"
        Exit Sub
    End If

' 不能直接 rng2 = rng 
' 因为 rng 的单元格是连续的
' 而 rng2 的单元格是不连续的

j = 1
For Each cell In rng2
    For i = 1 To rng.Count
        If j = i Then
            temp = rng.Cells(i) ' 默认情况下返回单元格的值
            Exit For
        End If
    Next i
    cell.Value = temp
    Debug.Print cell.Value
    j = j + 1
Next

End Sub

选定A1:A10的区域的内容，然后分别将其复制给选定的单元格。如图：

2019-10-15 12.17.12.gif

然后是清除内容的代码：

Sub ClearSelection()
    Dim rng As Range
    Set rng = Selection
    rng.Value = ""
End Sub

如此，我们将单据的图片放入，然后制作调整单元格，覆盖单据样式。就可以实现单据批量打印了。

2019-10-15 12.50.26.gif