EXCEL 整理气象资料的问题

jerryapo
個人積分：946分
文章編號：86816255

946分

樓主

2023-02-06 22:28

请问一下各位大大. 我有气象资料要整理，想用excel VBA来整理气象资料，资料的架构如下：气象站每30 min记录一次。我要如何用excel VBA来整理气象资料,当然资料是1月1日到12月31日。我要如何用Application.WorksheetFunction.AverageIfs 来求每一小时，每一天，和每一个月的资料，爬文是爬了。好像没有可以参考的。请各位大大提供一下意见。 THANK YOU

2023-02-06 22:28 發佈

文章關鍵字 excel 氣象資料問題

小小尉

小小尉
個人積分：247分
文章編號：86824935

247分

2樓

2023-02-08 9:52

jerryapo wrote:
请问一下各位大大. ...(恕刪)

Column A 跑迴圈，用日期和時間判斷是不是你要的區間資料(每一小時，每一天，和每一個月)，是就把Column B資料取走。

jerryapo

jerryapo
個人積分：946分
文章編號：86827567

946分

樓主

2023-02-08 15:04

小小尉 wrote:
Column A 跑...(恕刪)

小小尉大大，现在我要先將文字分割成不同的欄。来源字串还是12/1/2022 0:00:00
现在分割不了。我的VBA 如下。有大大能看一下，为啥一直error 呀！！！

Sub MySplit()

K = Sheet1.Range("a" & Rows.Count).End(xlUp).Row

For i = 2 To K
' 计算rows 数
rawData = Cells(i, 1)

' rows data来源
fieldArray = Split(rawData, " ")

'
For j = 0 To 1
Cells(i, j + 2).Value = fieldArray(j)
Next j
Next i

End Sub

小小尉

小小尉
個人積分：247分
文章編號：86827673

247分

4樓

2023-02-08 15:18

jerryapo wrote:
小小尉大大，现在我...(恕刪)

應該是K = Sheet1.Range("a" & Rows.Count).End(xlUp).Row有問題，改成下面的試試

Private Sub Worksheet_Change(ByVal Target As Range) 
Sub MySplit()
    K = Range("a" & Rows.Count).End(xlUp).Row
    For i = 2 To K
        rawData = Cells(i, 1)
        fieldArray = Split(rawData, " ")
        For j = 0 To 1
            Cells(i, j + 2).Value = fieldArray(j)
        Next j
    Next i
End Sub

jerryapo

jerryapo
個人積分：946分
文章編號：86828196

946分

樓主

2023-02-08 16:29

jerryapo wrote:
小小尉大大，现在我...(恕刪)

一样报错。

jerryapo

jerryapo
個人積分：946分
文章編號：86829609

946分

樓主

2023-02-08 20:46

爬到了一篇文。刚刚合用。因为是爬到的文，有须要的我再给code, 不是自己的不能当自己的发文，我还是要一点脸皮的。