Екцел - Макро за копирање и лепљење података у следећу празну ћелију

Питање

Имам два листа у радној свесци. Схеет1 је за резиме и Схеет2 је за сирове податке. Морам ажурирати / уметнути / копирати податке у Схеет2 у Схеет1. Испод је узорак макро кода:

 Суб Суммаризе () Ранге ("А6: АТ6") Изаберите Селецтион.Цопи Схеетс ("ИмпровементЛог") Изаберите Ранге ("Б283") Изаберите Селецтион.ПастеСпециал Пасте: = клВалуес, Оператион: = клНоне, СкипБланкс: = _ Фалсе, Транспосе: = Фалсе Ранге ("Б283") 

Горе наведени код ради, али сваки пут када промијеним податке у Схеет2, Схеет1 замјењује само податке. Оно што ми је потребно је да сваки пут када променим податке у Схеет2, треба додати (додати) у Схеет1.

Решење

Треба да знате последњи коришћени ред. Овде Домет ("Б283") Изаберите Изабери последњу коришћену ћелију у колони Б и затим изаберите једну ћелију испод ње

 лМакРовс = Ћелије (Ровс.Цоунт, "Б") Крај (клУп) .Ров Ранге ("Б" & лМакРовс +1) .селецт 

Хвала ризвиса1 за овај тип.