推 sueadolph:我沒有你的原始表格~~不過使用"F8"看了一下 03/03 03:37
→ sueadolph:I+XXXXXX 這邊~~i是int格式了~名字是字串 03/03 03:37
→ sueadolph:+ 換成 & 應該就沒問題了~~~ 03/03 03:38
推 greengarden:謝謝你真是感激不盡 03/07 12:23
我想要從資料名單中找出相符的名字再將這些名字連同期詳細資料
（地址、電話、...等）print出
我自己寫了以下程式
但是會出現"型態不符的錯誤"
請問可以幫我看一下是哪裡出問題嗎
請多多指教 謝謝 感激不盡
Sub find()
Dim myfindname
Dim myfound
getoffpeople = Array("楊會敏", "藍鄉齊", "陳貞一")
、我想要找的名字
For Each people In getoffpeople
myfindname = people
Set myname = Cells.find(what:=myfindname, after:=ActiveCell)
、找出符合的名字
myfound = i + myfindname + ActiveCell.Offset(1, 1) + ActiveCell.Offset(1, 2)
、將我想要有關此名字的資料指定到myfound
Print myfound
'印出相符名字的與其相關資料
i = i + 1
Next people
、繼續進行下一筆資料比對
End Sub
--
小玉西瓜的名言
我心情哪不好
就想要抬槓
哪想妹抬槓
搭一個人呼我找到
就算伊衰
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 192.192.90.29