尝试从VBA上的另一个表连接

Question

我是VB的新手，我正在尝试将一个代码放在一起，将数据从两个单元格（B13，B14）拉到Sheet3上，同时在表格中的下一个空单元格中连接和数据（A3： A47）到Sheet10。

这是输入：

 #   A    B
 #1
 #2
 #3
 .
 .
 .
 #13     02
 #14     01

所需的输出（字符串中添加了一些字符）：

 #   A           B
 #1
 #2
 #3  not-empty
 #4  not-empty
 #5  not-empty
 #6  not-empty
 #7  R02-S01
 #8
 ...

非常感谢任何帮助！

Answer 1

这个宏做你想要的（或至少你提到的）。您可以将其循环到一个范围内以供进一步使用。

 Option Explicit

 Dim iwsh As Worksheet
 Dim owsh As Worksheet
 Dim output As String
 Dim i As Integer

 Sub Copy()

 Set iwsh = Worksheets("Sheet3")
 Set owsh = Worksheets("Sheet10")

 i = 3

 While owsh.Cells(i, 1) <> ""

 i = i + 1

 Wend

 output = "R" & iwsh.Cells(13, 2).Value & "-S" & iwsh.Cells(14, 2).Value

 owsh.Cells(i, 1) = output

 End Sub