Užívanie hodnôt zo stĺpca 1, uvedenie samostatných pracovných hárkov - excel, vba, excel-vba

Použitie VBA v Exceli; Mám v sebe menáStĺpec 1 na mojom aktívnom hárku, chcem ich prevziať na svoj vlastný pracovný hárok. Takže všetky bunky s hodnotou „Name1“ prechádzajú na pracovný list premenovaný na „Name1“ a rovnaké pre všetky názvy v stĺpci. Počet mien nie je nastavený. Nie som si istý, ako s tým postupovať, pretože som nový pri kopírovaní na nové pracovné hárky.

odpovede:

Pomocou vlastnosti range End vyberte príslušné bunky a skopírujte ich hodnoty do zodpovedajúcich buniek v požadovanom cieľovom stĺpci tabuľky Názov1.

V nasledujúcom predpokladám

1. Chcete skopírovať mená z 2. riadka nadol (napr. Pretože máte riadok záhlavia)
2. Chcete skopírovať do prvého stĺpca nového pracovného hárku s názvom Name1, počínajúc od 2. riadku
3. Originálny pracovný hárok, z ktorého kopírujete, je váš ActiveSheet

Každému tlačidlu alebo udalosti, ktorú sa vám páči, jednoducho priraďte nasledujúci kód:

Sub CopyNames()

Dim TargetRange As Range
Dim NameSheet As Worksheet


" Prevent Excel screen from flickering as it copies
Application.ScreenUpdating = False

" Set the range of data you have to copy in column A, from row 2 to the last non-empty cell
Set TargetRange = ActiveSheet.Range("A2", ActiveSheet.Range("A2").End(xlDown))

" Add the worksheet and rename it
Set NameSheet = Worksheets.Add
NameSheet.Name = "Name1"

" Copy and paste to the new worksheet
TargetRange.Copy
NameSheet.Cells(2, 1).Activate
ActiveSheet.Paste

" Exit Copy mode
Application.CutCopyMode = False

End Sub