0

ABC1列の値をコピーしたい場所 ( ) から Excel ファイルがあり、列のA値をコピーしたい場所 ( )からExcel ファイルA1:A50もあります。ABC2BB1:B50


XYZ1それらを([ ABC1 A1] toD1および [ ABC2 B1] to D2) Excel ファイル、
XYZ2([ ABC1 A2] toD1および [ ABC2 B2] to D2) Excel ファイル、
XYZ3および...
XYZ50
別の Excel ファイルに貼り付けたい。

4

1 に答える 1

0

このようなものになります

dim x as integer
dim wb as workbook

for x=1 to 50
    set wb=workbooks.add()
    'copy data to wb.sheets(1)
    wb.saveas filename:="C:\destination_folder\XYZ" & x & ".xlsx"
    wb.close false
next x
于 2012-12-05T22:23:43.870 に答える