sub test()
dim wk1 as workbook
dim wk2 as workbook
dim sh1 as worksheet
dim sh2 as worksheet
set wk1 = thisworkbook
set sh1 = wk1.worksheets("Sheet1")
set wk2 = workbooks.add
set sh2 = wk2.worksheets("Sheet1")
sh1.range("A1:B2").copy destination:=sh2.range("A1:B2")
end sub
搭單問vba 野Paste:=xlPasteValues
想問如果要copy一張worksheet 去另一個workbook野話
有咩方法可以唔要formula 剩係copy value ?
(除左select all -> copy -> paste value 之外)sub test() dim wk1 as workbook dim wk2 as workbook dim sh1 as worksheet dim sh2 as worksheet set wk1 = thisworkbook set sh1 = wk1.worksheets("Sheet1") set wk2 = workbooks.add set sh2 = wk2.worksheets("Sheet1") [s]sh1.range("A1:B2").copy destination:=sh2.range("A1:B2")[/s] sh2.Range("A1:B2").Value2 = sh1.Range("A1:B2").Value2 end sub
sub test()
dim wk1 as workbook
dim wk2 as workbook
dim sh1 as worksheet
dim sh2 as worksheet
set wk1 = thisworkbook
set sh1 = wk1.worksheets("Sheet1")
set wk2 = workbooks.add
set sh2 = wk2.worksheets("Sheet1")
sh2.Range("A1:B2").Value2 = sh1.Range("A1:B2").Value2
end sub