修改副本脚本以保留格式

时间:2015-10-27 19:13:40

标签: excel vba excel-vba

我有一个完美的复制脚本,除了在运行时丢失格式。我丢失了水平和垂直居中的文本,单元格背景颜色(条件),我的所有边框和任何文本效果(粗体/下划线/斜体)。为了添加统一的边框,我使用

var op1 = new
{
    Option = "Yes",
    Total = 10
};
var op2 = new
{
    Option = "No",
    Total = 8
};

var ret = ???

return Json(ret, JsonRequestBehavior.AllowGet);

虽然这有效,但并非所有边框都具有相同的厚度,并且单元格背景颜色会根据单元格的内容而有所不同。

我需要修改当前脚本以保持格式化。

复制脚本

class character_class(object):
def __init__(self, intel, str, agil):
    self.intel = intel
    self.str = str
    self.agil = agil

def input(self):
    str = input1
    intel = input2
    agil = input3
    print "A barbarian's main attribute starts at: %r." % str
    print "A wizard's main attribute is intel, and it starts at: %r." % intel
    print "An archer's main attribute is agility, and has the default agility speed of: %r.\n" % agil
    cont = raw_input("")

input1 = raw_input("Barbarian str:")
input2 = raw_input("Wizard intel:")
input3 = raw_input("Archer agil:")
character_class = character_class(input1, input2, input3)
character_class.input()

1 个答案:

答案 0 :(得分:2)

您在技术上不会复制/粘贴,您将值设置为相等。要粘贴数据和格式,请使用pasteSpecial

Range("CSSec" & SectionCS).Columns("A:N").Copy
With Sheets("CS Results").Range("A" & NextRow).Resize(TotalRows, 14)
     .PasteSpecial xlPasteFormats
     .PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False

这应该有用,只需仔细检查复印范围是否准确。