В тази статия ще научим как да променим формулата в клетките в диапазон до стойности, използвайки VBA в Microsoft Excel.
Суровите данни за този пример се състоят от данни за продажбите. Данните за продажбите съдържат информация относно броя на артикулите, продадени от служители в различни градове. Последният ред и колона съдържа формулата за сумата за намиране на общия брой артикули, продадени в определен град от определен служител.
Бихме искали да преобразуваме всички формули в активния лист в стойности. За да преобразуваме всички формули в стойности, създадохме макрос „ChangingFormulasToValue“. Този макрос може да бъде стартиран, като щракнете върху бутона „Преобразуване на формули в стойности“.
В моментната снимка може да се види формулата в клетка H18 се преобразува в стойност.
Обяснение на кода
Задайте SourceRng = Range ("A1", Range ("A1"). SpecialCells (xlCellTypeLastCell))
Горният код се използва за присвояване на всички клетки, започвайки от клетка A1, до последната клетка в работната книга като диапазон.
SourceRng.Value = ИзточникRng.Value
Горният код се използва за присвояване на стойността на клетката, прескачайки формулата
Моля, следвайте кода по -долу
Опция Изрично подмен. формула за пропускане на клетка SourceRng.Value = SourceRng.Value End Sub
Ако този блог ви е харесал, споделете го с приятелите си във Facebook. Също така можете да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим работата си и да я направим по -добра за вас. Пишете ни на имейл сайта