vba 搜尋儲存格後，貼上其他欄位

1^# 跳轉到 »

發表於 2016-5-12 22:25 | 顯示全部帖子

回復 1# snoopykay

Sub nn()
Dim iI%, iCol%
Dim lTop&
Dim sStr$
Dim rTar As Range
Range([K2], [L8]).Clear
sStr = InputBox("請輸入要搜尋的資料", "尋找資料")
Set rTar = Range("A:A").Find(sStr, LookIn:=xlValues)
If Not rTar Is Nothing Then
With rTar
iCol = 11
lTop = 2
Cells(lTop, iCol) = .Value
For iI = 0 To 3
Range(.Offset(, iI * 2 + 1), .Offset(, iI * 2 + 2)).Copy Cells(lTop + iI + 1, iCol)
Next
End With
End If
End Sub

複製代碼

VBA搜尋儲存格後，貼上其他欄位.zip (7.77 KB)

2^#

發表於 2016-5-16 20:17 | 顯示全部帖子

回復 3# mave
請參考小幫手的說明:

Integer 資料型態

Integer 變數係以範圍為 -32,768 到 32,767 之 16 位元 (2 個位元組) 數字的形式儲存。Integer 的型態宣告字元是百分比符號(%)。

靜思自在 : 虛空有盡．我願無窮，發願容易行願難。