Question

我是VBA的新手并且正在做一些编码来从表单中生成重复的表。但我选择了一个部分，我需要选择几个单元格并合并它们。合并后，我仍然需要将它们装箱。有人可以帮忙吗？

For Counter = 1 To Me.Copies.Value

RowCount = Worksheets("Sheet1").Range("A1").CurrentRegion.Rows.Count
With Worksheets("Sheet1").Range("A1")
.Offset(RowCount, 0).Value = Me.Location.Value
.Offset(RowCount, 0).Select
Call Macro1
.Offset(RowCount, 1).Value = StEt
.Offset(RowCount, 1).Select
Call Macro1
.Offset(RowCount, 2).Value = Me.Supervisor.Value
.Offset(RowCount, 2).Select
Call Macro1
.Offset(RowCount + 1, 0).Value = Counter
.Offset(RowCount + 1, 0).Select
Call Macro1
.Offset(RowCount + 1, 1).Value = Me.ExactLoc.Value
.Offset(RowCount + 1, 1).Select
Call Macro1
.Offset(RowCount + 1, 2).Value = Me.SupNum.Value
.Offset(RowCount + 1, 2).Select
Call Macro1
.Offset(RowCount + 2, 0).Value = Me.AddMsg.Value
'this is where I need the cell and 2 more other cell together for a merge
End With
Next Counter

这些代码基于一个按钮，点击表单，表格中填写了所有值。代码会将文本字段中的值复制到需要生成的副本数量。

Answer 1

合并单元格

Range("C16:E17").Merge

你会遇到的一些事情是合并的单元格最好留在Excel中，特别是当涉及到vba时，因为在尝试做某些事情时你会遇到错误。

另外要记住的是我从宏录制器获得的上述代码，有时可以提供帮助。

Answer 2

这应该有效

Range("C16:C17").Select
Selection.Merge
With.Selection.Borders(xlEdgeLeft)
.LineStyle=xlContinuous
.Weight=xlMedium
End With
With.Selection.Borders(xlEdgeTop)
.LineStyle=xlContinuous
.Weight=xlMedium
End With
With.Selection.Borders(xlEdgeRight)
.LineStyle=xlContinuous
.Weight=xlMedium
End With
With.Selection.Borders(xlEdgeBottom)
.LineStyle=xlContinuous
.Weight=xlMedium
End With

如何选择单元格并合并它们？

2 个答案: