VBA程式遇到第一個值擷取問題 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » VBA程式遇到第一個值擷取問題

返回列表下一主題上一主題發帖

[發問] VBA程式遇到第一個值擷取問題

中學生 Rank: 2

帖子: 102
主題: 17
精華: 0
積分: 129
點名: 0
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-5-16
最後登錄: 2020-9-2

1^# 跳轉到 »

發表於 2013-5-15 01:28 | 顯示全部帖子

這樣嗎...."
你這種敘述要不是我剛好太閒才懶得看囧

Sub TEST()
Dim a()
a() = ActiveSheet.Range("A1:B" & [B65536].End(xlUp).Row).Value
Cells(1, 3) = a(1, 1)
For s = 2 To UBound(a)
If a(s, 2) <> a(s - 1, 2) Then Cells(s, 3) = a(s, 1)
Next
End Sub

複製代碼

靜思自在 : 是非當教育，讚美作警惕。

返回列表下一主題上一主題