Хорошая иллюстрация на тему «Если нельзя но очень хочется», за авторством приста Хромм с Пиратской бухтой, вот из этой темы: http://forums.wow-europe.com/thread.html?topicId=13525667834&sid=5

собственно макрос:
/cast распыление
/use 0 1
/run for bag=0,4,1 do for slot=1,GetContainerNumSlots(bag),1 do local texture, itemCount, locked, quality, readable = GetContainerItemInfo(bag,slot) if quality == 2 then PickupContainerItem(bag,slot) PickupContainerItem(0,1) end end end ClearCursor()