Excel - VBA-koodi tietojen poistamiseksi riviltä pitämällä kaavat

Ongelma

Työskentelen laskentataulukossa, jossa minun on kopioitava tiedot uuteen arkkiin. Kun tiedot on kopioitu, haluan poistaa rivin tiedot alkuperäisestä arkista menettämättä kaavoja. Miten tämä voidaan toteuttaa VBA: ssa?

Ratkaisu

Kun olet asentanut alla olevan koodin, valitse solu rivistä, jonka haluat säilyttää kaavan, ja suorita koodi.

 Sub KeepFormulas () Dim sRow, lCol As Integer sRow = ActiveCell.Row lCol = Solut (sRow, Columns.Count) .End (xlToLeft). Sarake kullekin solualueelle (solut (sRow, 1), solut (sRow, lCol )) Jos cell.HasFormula = False Sitten solu 

Kiitos MSL: lle tästä vinkistä.