EXCEL学习记录集合

uuubjx

牛人+达人+人精

gywjj

第三页.找了好久.......................

徽商往事

52UEXCEL 发表于 2009-12-12 08:02
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rng As Range
    For Each ...

做了个试验：
1、合并A1,B1后，则A6,B6自动填充黑色；
2、在1—6行内插入一行后，A7,B7同时也填充黑色，插入几行，同时向下填充几行；
3、再将刚才插入的行删除，然而所填充的黑色却没有消失。

shara612

谢谢分享，下载中

ruguodangshi

收藏 备用 楼主辛苦了

斯莱德的slide

好东西值得收藏

qangsheng

难得楼主整理的这么详尽。

52UEXCEL

我有32张工作表例如：1,2,3,4....32
现在表1中的A1，表2的A1汇总变成新表统计，点住A1向下拖的时候，生成的公式为“=SUM('1'!C3:C116)”我想让他变为=SUM('2'!C3:C116)、=SUM('3'!C3:C116).......以此类推（就是工作表递增，而行列不变），怎么实现啊？？在下拜谢了！！

A1=SUM(INDIRECT("'"&ROW(A1)&"'!c3:c116"))   下拉

52UEXCEL

双条件选择.rar (3.77 KB, 下载次数: 36)

2012-5-14 00:04 上传

点击文件名下载附件

52UEXCEL

ub fill()
   
    Dim sht1 As Worksheet
    Dim sht2 As Worksheet
    Set sht1 = Worksheets("A")
    Set sht2 = Worksheets("B")
        
n = sht2.Range("A65536").End(xlUp).Row + 1
      
    sht2.Cells(n, 1) = sht1.Range("I3")
    sht2.Cells(n, 2) = sht1.Range("J3")
    sht2.Cells(n, 3) = sht1.Range("K3")
    sht2.Cells(n, 4) = sht1.Range("l3")
    sht2.Cells(n, 5) = sht1.Range("m3")
    sht2.Cells(n, 6) = sht1.Range("N3")
    sht2.Cells(n, 7) = sht1.Range("O3")
    sht2.Cells(n, 8) = sht1.Range("P3")
    sht2.Cells(n, 9) = sht1.Range("Q3")
    sht2.Cells(n, 10) = sht1.Range("R3")
    sht2.Cells(n, 11) = sht1.Range("S3")
    sht2.Cells(n, 12) = sht1.Range("T3")
    sht2.Cells(n, 13) = sht1.Range("U3")
    sht2.Cells(n, 14) = sht1.Range("V3")
    sht2.Cells(n, 15) = sht1.Range("W3")
    sht2.Cells(n, 16) = sht1.Range("X3")
    sht2.Cells(n, 17) = sht1.Range("Y3")
   
For i = 1 To 12
    sht2.Cells(n + i, 1) = sht1.Cells(i + 3, "I")
    sht2.Cells(n + i, 2) = sht1.Cells(i + 3, "J")
    sht2.Cells(n + i, 3) = sht1.Cells(i + 3, "K")
    sht2.Cells(n + i, 4) = sht1.Cells(i + 3, "L")
    sht2.Cells(n + i, 5) = sht1.Cells(i + 3, "M")
    sht2.Cells(n + i, 6) = sht1.Cells(i + 3, "N")
    sht2.Cells(n + i, 7) = sht1.Cells(i + 3, "O")
    sht2.Cells(n + i, 8) = sht1.Cells(i + 3, "P")
    sht2.Cells(n + i, 9) = sht1.Cells(i + 3, "Q")
    sht2.Cells(n + i, 10) = sht1.Cells(i + 3, "R")
    sht2.Cells(n + i, 11) = sht1.Cells(i + 3, "S")
    sht2.Cells(n + i, 12) = sht1.Cells(i + 3, "T")
    sht2.Cells(n + i, 13) = sht1.Cells(i + 3, "U")
    sht2.Cells(n + i, 14) = sht1.Cells(i + 3, "V")
    sht2.Cells(n + i, 15) = sht1.Cells(i + 3, "W")
    sht2.Cells(n + i, 16) = sht1.Cells(i + 3, "X")
    sht2.Cells(n + i, 17) = sht1.Cells(i + 3, "Y")
    Next i
   
End Sub
====================

工作中实际在用,速度有些慢.