这个是什么字体啊，请高手帮我看一下呀，谢谢哦

2025-04-04 19:55:59

推荐回答（3个）

回答1：

字体：方正品尚粗黑简体

有一点点的改动

回答2：

这个代码是只复制非空单元的，所以只复制P列有数字的2行。如果想复制10行，那得知道入库单号，在哪个单元格。以下代码，和上面代码功能相同。 Sub 入库提交()Dim a As LongDim b As Longa = IIf(Sheets("入库单").[P14] = "", Sheets("入库单").[P14].End(xlUp).Row, 14)b = Sheets("数据库").[B65536].End(xlUp).Row + 1Sheets("数据库").Cells(b, 1).Resize(a - 5 + 1, 21).Value = Range("C5:W" & a).ValueRange("P5:P14").ClearContentsEnd Sub

回答3：

这个代码是只复制非空单元的，所以只复制P列有数字的2行。

如果想复制10行，那得知道入库单号，在哪个单元格。

以下代码，和上面代码功能相同。

Sub 入库提交()
Dim a As Long
Dim b As Long
a = IIf(Sheets("入库单").[P14] = "", Sheets("入库单").[P14].End(xlUp).Row, 14)
b = Sheets("数据库").[B65536].End(xlUp).Row + 1
Sheets("数据库").Cells(b, 1).Resize(a - 5 + 1, 21).Value = Range("C5:W" & a).Value
Range("P5:P14").ClearContents
End Sub