我需要将Sheet1中的文本框内容粘贴到Sheet9中“B”列的最后一行。通过使用 Enter 键,将Sheet1中的文本框中的文本框内容(字符串)插入到Sheet9列“B”的最后一行中没有问题。但是,我发现很难将用户名添加到列“C”中的最后一行,与Sheet9中“B”列的最后一行相邻。
这里我将Sheet1中的文本框内容复制到Sheet9中“B”列的最后一行,并尝试将用户名放在Sheet 9中“C”列的最后一行。
itemsPerPage
答案 0 :(得分:2)
由于您要在行C中插入UserName,该行应该是B列中的第一个空行,您只需先将UserName放在C列中,然后在B列中插入TextBox值。 / p>
请试一试......
.Range("B" & Rows.Count).End(3)(2).Offset(0, 1) = Environ("UserName")
.Range("B" & Rows.Count).End(3)(2) = Textbox1