求助解决按月份保存数据的问题

新时代新征途 · 发表于 2018-9-2 00:36

我想要解决的问题在附件里有描述。谢谢！

附件：

按月份录入数据.zip (10.34 KB, 下载次数: 12)

新时代新征途 · 发表于 2018-9-2 16:15

请各位大咖老师给予关注。谢谢！

chaohuahch · 发表于 2018-9-2 20:46

本帖最后由 chaohuahch 于 2018-9-2 20:51 编辑

代码如下：

Sub fyExcelVBA()
Dim arr, brr, I%, j%, nRow%
Dim mon
mon = Month(Sheets("录入").Range("g12"))
For Each sh In Sheets
If sh.Name <> "录入" Then
m = sh.Name
mm = CInt(Split(m, "月份")(0))
If mm = mon Then
arr = Sheets("录入").Range("g9:g27")
nRow = sh.Range("a" & Rows.Count).End(3).Row + 1
Range("a" & nRow).Resize(1, UBound(arr)) = Application.WorksheetFunction.Transpose(arr)
End If
End If
Next
End Sub

复制代码

新时代新征途 · 发表于 2018-9-2 21:22

chaohuahch 发表于 2018-9-2 20:46
代码如下：

老师谢谢您的关注。试了一下，有点问题：保存后，数据没有到相应的月份里，而是在“录入”工作表的第五行出现了保存后数据。麻烦您再看看。

chaohuahch · 发表于 2018-9-3 09:53

新时代新征途发表于 2018-9-2 21:22
老师谢谢您的关注。试了一下，有点问题：保存后，数据没有到相应的月份里，而是在“录入”工作表的第五行 ...

sh.Range("a" & nRow).Resize(1, UBound(arr)) = Application.WorksheetFunction.Transpose(arr) 加一下sh.你再试一下。

新时代新征途 · 发表于 2018-9-3 19:45

chaohuahch 发表于 2018-9-3 09:53
sh.Range("a" & nRow).Resize(1, UBound(arr)) = Application.WorksheetFunction.Transpose(arr) 加一下 ...

chaohuahch老师谢谢您了！非常好！

新时代新征途 · 发表于 2018-9-7 21:22

chaohuahch 发表于 2018-9-2 20:46
代码如下：

老师您好！我在工作簿中加了一个新的“工作表”后，就无法使用。谢谢！麻烦您再帮帮忙。

请看附件：

按月份录入数据.zip (11.24 KB, 下载次数: 12)

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

[求助] 求助解决按月份保存数据的问题