Excel - makro, jolla voit lisätä tyhjiä rivejä
- Ongelma
- Ratkaisu
Ongelma
Yrität luoda makron, joka lisää tyhjien rivien joukon olemassa olevaan laskentataulukkoon jokaisen merkinnän jälkeen. Tarvittavien rivien määrä on sama laskentataulukon jokaiselle merkinnälle, mutta sitä on muutettava joka kerta, kun sitä käytetään.Tässä on näyte ...
Tällä hetkellä:
title1Title2
TITLE3
TITLE4
Makron käyttämisen jälkeen:
title1Title2
TITLE3
TITLE4
Tyhjän rivin määrä voi olla 20 - 40.
Ratkaisu
A1: llä on otsikot.Kokeile sitten tätä makroa
säilytä alkuperäinen tiedosto turvallisesti jonnekin
tee ensin makron testaus lähetetyissä kokeellisissa tiedoissa
Sub-testi ()Dim j As Long, r As Range
j = InputBox (kirjoita syötettävien rivien lukumäärä)
Aseta r = alue ("A2")
Tehdä
Alue (r.Offset (1, 0), r.Offset (j, 0)) EntireRow.Insert
Aseta r = solut (r.Row + j + 1, 1)
MsgBox r.Address
Jos r.Offset (1, 0) = "" Sitten Exit Do
silmukka
Lopeta Sub
Kiitos venkat1926 tästä vinkistä.