[已解决]求高手们来解答,难死我了,弄两天了没有实现!

haikeyia · 发表于 2014-5-10 16:52

我制作一个EXCEL表格，sheet1中格式固定，内容经常改变，但是每一次的内容都需要按顺序依次保存到sheet2中，请教了不少老师，用输出，用宏，但仍无法实现全部功能，救救我吧！

最佳答案

月排行榜 / 总排行榜

zjdh

2014-5-12 13:15

本帖最后由 zjdh 于 2014-5-12 13:21 编辑

(, 下载次数: 8)

zjdh · 发表于 2014-5-10 17:05

abcdf.rar (7.94 KB, 下载次数: 10)

dsmch · 发表于 2014-5-10 17:10

Sub Macro1()
Dim arr, brr(1 To 1, 1 To 6), n&, rng As Range
arr = [a1:j15]
brr(1, 1) = arr(5, 7)
brr(1, 2) = arr(10, 3)
brr(1, 3) = arr(11, 2)
brr(1, 4) = arr(11, 5)
brr(1, 5) = arr(8, 2)
brr(1, 6) = DateSerial(arr(15, 5), arr(15, 7), arr(15, 9))
With Sheet2
Set rng = .Columns(1).Find(arr(5, 7), lookat:=xlWhole)
If rng Is Nothing Then
n = .Range("a65536").End(xlUp).Row + 1
.Cells(n, 1).Resize(1, 6) = brr
End If
End With
End Sub

复制代码

dsmch · 发表于 2014-5-10 17:11

表二如果不存在编号则复制

haikeyia · 发表于 2014-5-10 18:37

高手啊,如此精简代码就实现了,研究了半天,有两行代码不太明白,求解:
With Sheets(2)........两个工作表间的读取就实现?
.Cells(W, 6) = DateSerial(Range("E15"), Range("G15"), Range("I15")).......为什么保存后是文本呢?

zjdh · 发表于 2014-5-11 10:55

本帖最后由 zjdh 于 2014-5-11 12:48 编辑

haikeyia 发表于 2014-5-10 18:37
高手啊,如此精简代码就实现了,研究了半天,有两行代码不太明白,求解:
With Sheets(2)........两个工作表间的 ...

1.  With Sheets(2) 是指第2个表
2. 若要记录为文本：a. 将F列设置为文本
                              b. 修改语句为 .Cells(W, 6) = Range("E15") & "-" & Range("G15") & "-" & Range("I15")

zjdh · 发表于 2014-5-11 10:56

本帖最后由 zjdh 于 2014-5-11 19:55 编辑

abcdf2.rar (7.98 KB, 下载次数: 16)

haikeyia · 发表于 2014-5-11 14:13

谢谢!

haikeyia · 发表于 2014-5-11 15:49

如果在保存到sheet2的同时,把sheet1中不连续单元格内容删除,有没有更简单的方法,我用的是:
Range("B8").Select
Selection.ClearContents
Range("E11").Select
Selection.ClearContents
...........
求教!

haikeyia · 发表于 2014-5-11 16:56

本帖最后由 haikeyia 于 2014-5-11 17:02 编辑

zjdh 发表于 2014-5-11 10:56

如果在保存到sheet2的同时,加入一段代码,把sheet1中不连续单元格内容删除,有没有更简单的方法,我用的是:
Range("B8").Select
Selection.ClearContents
Range("E11").Select
Selection.ClearContents
...........

求教!

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