如何将一个EXCEL文件的部分单元格的格式赋值给另外一个EXCEL(50分)

同题目

用VBA吧

根据EXCEL里的宏代码，读取你要的格式，再对另一个EXCEL的格式设置，
这里要做的就只是将宏里的代码译成PASCAL,应该不难，我做过的

我用EXCEL的宏试了一下,得到如下代码:
Range("A5").Select
Selection.Copy
Range("A9").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

再查询PasteSpecial 方法（Range 对象）:将剪贴板中的 Range 对象粘贴到指定区域中。
语法
expression.PasteSpecial(Paste, Operation, SkipBlanks, Transpose)

expression 必选。该表达式返回 Range 对象。

Paste Variant 类型，可选。指定要粘贴该区域的哪一部分。可为下列 XlPasteType 常量之一：xlPasteAll、xlPasteFormulas、xlPasteValues、xlPasteFormats、xlPasteNotes 或 xlPasteAllExceptBorders。默认值为 xlPasteAll。

Operation Variant 类型，可选。粘贴的操作。可为下列 XlPasteSpecialOperation 常量之一：xlPasteSpecialOperationNone、xlPasteSpecialOperationAdd、xlPasteSpecialOperationSubtract、xlPasteSpecialOperationMultiply 或 xlPasteSpecialOperationDivide。默认值为 xlPasteSpecialOperationNone。

SkipBlanks Variant 类型，可选。若指定为 True，则不粘贴剪贴板中单元格区域的空白单元格。默认值为 False。

Transpose Variant 类型，可选。若指定为 True，则粘贴时转置行和列。默认值为 False。

你要赋值格式,引用EXCEL的常量xlPasteFormats就可以了