Question

我正在尝试将单元格值从表格（“＃sampleTracker”）复制到表格（“＃MESSAGEBOARD”）。

因此，dateatax，namedatax，numberdatax都来自#sampleTracker表，然后我们转到#MESSAGEBOARD表并在列表底部输入数据。

我已经使用了dateatax，但是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)

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

1 个答案: