请教“VBA格式刷”的编写

hhf133 · 发表于 2010-8-30 14:46

请教“VBA格式刷”的编写

Set qy1 = Sheet1.Cells(i, 1).Resize(1, 7)

qy2 = Sheet2.Cells(i+1, 10).Resize(1, 7)

希望将qy1区域的格式应用到qy2区域

请教各位大侠该如何编写VBA

谢谢先。

[此贴子已经被作者于2010-8-30 14:47:02编辑过]

amulee · 发表于 2010-8-30 15:33

Set qy1 = Sheet1.Cells(i, 1).Resize(1, 7)
    qy2 = Sheet2.Cells(i + 1, 10).Resize(1, 7)
    qy1.Copy
    qy2.PasteSpecial Paste:=xlPasteFormats

那么的帅 · 发表于 2010-8-30 15:35

    Set QY1 = Sheet1.Cells(I, 1).Resize(1, 7)
    Set qy2 = Sheet2.Cells(I + 1, 10).Resize(1, 7)
    QY1.Copy
    qy2.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

nichangdong · 发表于 2010-8-30 15:39

Sheet1.Cells(i, 1).Resize(1, 7).Copy
Sheet2.Cells(i + 1, 10).Resize(1, 7).PasteSpecial Paste:=xlPasteFormats

hhf133 · 发表于 2010-8-30 16:03

非常好用

谢谢各位大侠

谢谢！

老糊涂 · 发表于 2011-2-8 15:13

{:1112:}

nothingwmm · 发表于 2011-2-17 08:44

amulee 发表于 2010-8-30 15:33
Set qy1 = Sheet1.Cells(i, 1).Resize(1, 7)    qy2 = Sheet2.Cells(i + 1, 10).Resize(1, ...

阿木的代码好1

fengzhuang · 发表于 2011-2-17 09:01

9lee · 发表于 2011-2-17 15:02

阿木的代码简洁

		自动登录	找回密码
密码			注册