標題:
[發問]
想請教一個蠻困擾的問題!!
[打印本頁]
作者:
cold123
時間:
2015-3-3 20:40
標題:
想請教一個蠻困擾的問題!!
[attach]20362[/attach]
有哪位神人知道如何把右邊的文字項目藉由函數或是什麼方式可以把他代入左邊的對應表格裡嗎?!
有想過用if或是vlookup的方式，但是if只能對應數值，文字類的就不行~~比如說用"啤酒"去對應，只要右邊的格子裡有啤酒兩個字就會出現值，沒有的就不會出現!
請問有辦法可以用出來嗎?!
作者:
cold123
時間:
2015-3-3 22:35
抱歉，可能解釋的不太好；右邊總和跟左邊細項是完全不同的檔案，因為原本同事是輸入成右邊的格式，完全手工輸入的！
但是主管希望能用成左邊像是表格一樣的格式來分類，麻煩點就是我們必須看著一大串右邊原本的資料，然後一個個在左邊對應的格子內輸入，所以才想問說有什麼公式能這樣幫忙代入嗎？有想過=if，但似乎無法辨別的樣子
作者:
stillfish00
時間:
2015-3-4 10:19
本帖最後由 stillfish00 於 2015-3-4 10:24 編輯
回復
2#
cold123
這樣? B2填
=IF(ISNUMBER(FIND(B$1,$G2)),"V","")
公式向右向下填滿
作者:
GBKEE
時間:
2015-3-5 07:06
回復
2#
cold123
因為原本同事是輸入成右邊的格式，完全手工輸入的！
但是主管希望能用成左邊像是表格一樣的格式來分類
請上傳,完全手工輸入的資料的檔案,左邊表格一樣的格式的檔案
作者:
jcchiang
時間:
2015-3-6 10:55
回復
1#
cold123
[attach]20388[/attach]
我將格式設定為上圖所示
Sub ex()
Dim ar As Variant, x, y, i, a As Long
i = 2
y = 1
Do While Cells(i, 7) <> ""
ar = Split(Cells(i, 7), ";")
x = 2
For a = 0 To UBound(ar)
For x = 2 To 5
If Cells(1, x) = ar(a) Then
Cells(y, x).Offset(1, 0) = "V"
End If
Next
Next
y = y + 1
i = i + 1
Loop
End Sub
複製代碼
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
