vba - 将单元格值从一个工作表复制到另一个工作表作为字符串

Question

我正在尝试将单元格值从 Sheets("#sampleTracker") 复制到 Sheets("#MESSAGEBOARD")。

所以 datedatax、namedatax、numberdatax 都来自#sampleTracker 表，然后我们转到#MESSAGEBOARD 表并在列表底部输入数据。

我有 datedatax 工作，但 namedatax 和 numberdatax 没有出现。

有什么建议么？

datedatax = ActiveCell.Value
Dim namedatax As String
Dim numberdatax As String
numberdatax = Sheets("#SampleTracker").Cells(9, ActiveCell.Row).Value
namedatax = Sheets("#SampleTracker").Cells(10, ActiveCell.Row).Value
styledatax = numberdatax + "_" & namedatax


Sheets("#MESSAGEBOARD").Select
Range("C2").Select
Set EmptyCell = Cells(100, ActiveCell.Column) 'select last cell pt1
EmptyCell.End(xlUp).Select ' select last cell in column pt2
ActiveCell.Offset(1, 0).Select ' select last cell in column pt3
ActiveCell.Value = datedatax - Date 'advise how many days till due date
ActiveCell.Offset(0, 1).Select
ActiveCell = "sample " & styledatax

Sheets("#SampleTracker").Select

Answer 1

您在代码的第一部分中颠倒了行和列。

它.Cells(row,column)看起来像你有.Cells(column,row)