|
Sheets("数据连接").Range("BG5:BN14").Copy
Sheets("送货单").Range("AN11").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone '数据(数值)黏贴
Sheets("数据连接").Range("BG18:BN27").Copy
Sheets("送货单").Range("AN24").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone '数据(数值)黏贴
Sheets("数据连接").Range("BG31:BN40").Copy
Sheets("送货单").Range("AN37").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone '数据(数值)黏贴
Sheets("数据连接").Range("BG44:BN53").Copy
Sheets("送货单").Range("AN50").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone '数据(数值)黏贴
Sheets("数据连接").Range("BG57:BN66").Copy
Sheets("送货单").Range("AN63").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone '数据(数值)黏贴
Sheets("数据连接").Range("BG70:BN79").Copy
Sheets("送货单").Range("AN76").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone '数据(数值)黏贴
Sheets("数据连接").Range("BG83:BN92").Copy
Sheets("送货单").Range("AN89").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone '数据(数值)黏贴
Sheets("数据连接").Range("BG96:BN105").Copy
Sheets("送货单").Range("AN102").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone '数据(数值)黏贴
Sheets("数据连接").Range("BG109:BN118").Copy
Sheets("送货单").Range("AN115").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone '数据(数值)黏贴
Sheets("数据连接").Range("BG122:BN131").Copy
Sheets("送货单").Range("AN128").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone '数据(数值)黏贴
- Dim shtSj As Worksheet
- Dim shtShd As Worksheet
- Set shtSj = Worksheets("数据连接")
- Set shtShd = Worksheets("送货单")
- Dim i As Byte
- Dim iRow1%
- Application.ScreenUpdating = False
- For i = 0 To 9
- iRow1 = i * 13
- shtSj.Range("bg" & 5 + iRow1 & ":bn" & 14 + iRow1).Copy
- shtShd.Range("an" & 11 + iRow1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
- 'Debug.Print shtSj.Range("bg" & 5 + iRow1 & ":bn" & 14 + iRow1).Address, shtShd.Range("an" & 11 + iRow1).Address
- Next
- Application.ScreenUpdating = True
复制代码
|
|