- 帖子
- 234
- 主題
- 19
- 精華
- 0
- 積分
- 276
- 點名
- 0
- 作業系統
- Windows XP
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2013-1-7
- 最後登錄
- 2021-10-7
|
2#
發表於 2015-5-28 13:14
| 只看該作者
回復 1# lionliu
是這樣嗎??
Sub desc()
'pk ctn
Dim i, j, rcnt As Integer
Dim x As Variant
Sheets("B").Select
rcnt = Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To rcnt
x = 1
Do While x <= Sheets("a").Range("a1").CurrentRegion.Rows.Count
If Sheets("a").Cells(x, 1) = Sheets("B").Cells(i, 1) And IsNumberic(Cells(i, 3).Value) Then
Cells(i, 2) = Sheets("A").Cells(x, 2)
Cells(i, 2).Offset(1) = Sheets("A").Cells(x, 2).Offset(1)
End If
x = x + 1
Loop
Next
Set x = Nothing
End Sub
Function IsNumberic(Value As String) As Boolean
If Value Like "[+-]*" Then Value = Mid$(Value, 2)
IsNumberic = Not Value Like "*[!0-9.]*" And Not Value Like "*.*.*" And _
Len(Value) > 0 And Value <> "."
End Function |
|
發表於 2015-5-28 15:06
| 
