Excel -工作表间基本复制粘贴宏

ghhkc1vu 于 2023-02-17 发布在其他

关注(0)|答案(3)|浏览(142)

我需要做一个基本的合并数据从2表中的第一部分（用户名）的变化，但第二部分是说，一个预设的120项列表。即，合并：

sheet1:USERLIST
albert
benny
cedric
dorothy
....

与

sheet2:ITEMLIST
item1
item2
item3
....
item120

因此另一个工作表（在单独的单元格中）上的最终输出为

sheet3
albert item1
albert item2
....
albert item120
benny item1
benny item2
....
benny item120
cedric item1
cedric item2
....
cedric item120

我知道这是一个很基本的问题，但是到目前为止我还没有找到答案。

excel

来源：https://stackoverflow.com/questions/16187464/excel-basic-copy-paste-between-sheets-macro

3条答案

按热度按时间

sf6xfgos1#

这可以简单地在两级For...Next中完成。
假设您有：

[第1页]：

USER_LIST
    A
    B
    C

[第2页]：

ITEM_LIST
    1
    2
    3
    4
    5

[第3页]：

RESULT_LIST

使用此潜艇：

Private Sub Whatever_name_you_like()
    Dim i As Integer
    Dim j As Integer
    For i = 2 To Worksheets(1).Range("A65535").End(xlUp).Row
        For j = 2 To Worksheets(2).Range("A65535").End(xlUp).Row
            Worksheets(3).Cells(Range("A65535").End(xlUp).Row + 1, 1).Value = Worksheets(1).Cells(i, 1).Value & Worksheets(2).Cells(j, 1).Value
        Next
    Next
End Sub

运行时，[Sheet3]将导致：

RESULT_LIST
A1
A2
A3
A4
A5
B1
B2
B3
B4
B5
C1
C2
C3
C4
C5

赞(0）回复(0）举报 2023-02-17

qvtsj1bj2#

你能不能不要用目标范围内的一个公式来做这件事：

=Sheet1!A:A&Sheet2!A:A

只需将公式复制到所有目标单元格中。
这避免了使用VBA和循环，并利用了Excel的内置功能，因此无需启动VBA代码

赞(0）回复(0）举报 2023-02-17

jvlzgdj93#

亲爱的朋友，我刚刚在YouTube https://m.youtube.com/watch?v=yMfuiNhV1LQ&t=19s中创建了一个Excel基础课程
访问这是一个最好的课程，你可以学习基础到高级水平

赞(0）回复(0）举报 2023-02-17

我来回答

Excel -工作表间基本复制粘贴宏

3条答案

相关问题

热门标签

最新问答