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
' 因?yàn)?rng 的單元格是連續(xù)的
' 而 rng2 的單元格是不連續(xù)的
j = 1
For Each cell In rng2
For i = 1 To rng.Count
If j = i Then
temp = rng.Cells(i) ' 默認(rèn)情況下返回單元格的值
Exit For
End If
Next i
cell.Value = temp
Debug.Print cell.Value
j = j + 1
Next
End Sub
選定A1:A10的區(qū)域的內(nèi)容，然后分別將其復(fù)制給選定的單元格巡语。如圖：
2019-10-15 12.17.12.gif
然后是清除內(nèi)容的代碼：
Sub ClearSelection()
Dim rng As Range
Set rng = Selection
rng.Value = ""
End Sub
如此翎蹈，我們將單據(jù)的圖片放入，然后制作調(diào)整單元格男公，覆蓋單據(jù)樣式荤堪。就可以實(shí)現(xiàn)單據(jù)批量打印了。
2019-10-15 12.50.26.gif
