“Tabela kopii Excel VBA do innego arkusza roboczego” Kod odpowiedzi

Tabela kopii Excel VBA do innego arkusza roboczego

Sub CopyTables()
	dim oWs as worksheet	'<- source sheet
    dim oLo as listobject	'<- table to be copied
	dim oWsTarget as worksheet	'<- worksheet to paste copied table
    
    set oWs = Worksheets(1)
	set oLo = oWs.ListObjects(1)
    
	set oWsTarget = Worksheets(2)

	oWs.oLo.Range.Copy _
    	Destination:=oWsTarget.Range("A1")

End Sub