Excel - makro do wstawiania pustych wierszy
- Kwestia
- Rozwiązanie
Kwestia
Próbujesz utworzyć makro, które po każdym wpisie wstawi zestaw pustych wierszy do istniejącego arkusza kalkulacyjnego. Ilość potrzebnych wierszy będzie taka sama dla każdego wpisu arkusza kalkulacyjnego, ale będzie musiała zostać zmieniona przy każdym użyciu.Oto przykład ...
W tej chwili:
Tytuł1Tytuł2
Tytuł3
Tytuł4
Po użyciu makra:
Tytuł1Tytuł2
Tytuł3
Tytuł4
Ilość pustego rzędu może wynosić od 20 do 40.
Rozwiązanie
A1 ma nagłówki.Następnie spróbuj tego makra
zachowaj bezpiecznie swój oryginalny plik
najpierw wykonaj testowanie makra w przesłanych danych eksperymentalnych
Sub test ()Dim j As Long, r As Range
j = InputBox („wpisz liczbę wierszy, które mają zostać usunięte”)
Ustaw r = zakres („A2”)
Robić
Zakres (r.Offset (1, 0), r.Offset (j, 0)). EntireRow.Insert
Set r = Cells (r.Row + j + 1, 1)
MsgBox r.Address
Jeśli r.Offset (1, 0) = "" Następnie wyjdź
Pętla
Napis końcowy
Dzięki venkat1926 za tę wskazówkę.