新手上路，问高手一个问题。

LOYOTO

yylucke 发表于 2022-8-29 11:39
请学习：以及range前加点和不加点的区别。
加点，表示引用的是with后面的那个对象；不加点，默认的就是当 ...

谢谢高手指点

feilanga

LOYOTO 发表于 2022-8-29 11:37
从26个字母开始学起来。

那倒不至于 只是你问的问题是基础中的基础,如果连这个都没有耐心学习的话,只会处处都是问题

LOYOTO

feilanga 发表于 2022-8-29 11:43
那倒不至于 只是你问的问题是基础中的基础,如果连这个都没有耐心学习的话,只会处处都是问题

Public Sub 进货台账()
  Dim i%, r%
  Dim wdDoc As Word.Document
  Dim mWord As New Word.Application
  Application.ScreenUpdating = False
  Set d = CreateObject("scripting.dictionary")
  With Worksheets("今日供货清单")
    r = Range("A1").End(xlToRight).Column
    arr = .Range("a2:d" & r)
    For i = 1 To UBound(arr)
      If Not d.Exists(arr(i, 1)) Then
        Set d(arr(i, 1)) = CreateObject("scripting.dictionary")
      End If
      d(arr(i, 1))(arr(i, 3)) = Empty
    Next
  End With
  Set wdDoc = mWord.Documents.Open(ThisWorkbook.Path & "\今日清单模板.docx")
  For Each aa In d.keys
    With wdDoc
      With .Tables(1)
        .Cell(1, 2).Range.Text = aa
        .Cell(4, 3).Range.Text = Join(d(aa).keys, "，")
      End With
      .SaveAs2 "D:\" & Replace(Range("A" & i), "/", "-") & ".docx"
    End With
  Next
  wdDoc.Close False
  mWord.Quit
  Application.ScreenUpdating = True
End Sub


请高手指点，    r = Range("A1").End(xlToRight).Column   这一句导致导出结果只有最后一个有效值， 加上   r = Range("A1").End(xlDown).Row 导出来的文件可以增加第一个有效值。

feilanga

1. arr = Sheets("数据").UsedRange '数据表已使用范围全部装入数组arr
   
2. 
   
3. 
   
4. '妙用UsedRange对象可以获得工作表的很多信息:
   
5. '（1）已用单元格区域的第一行行序数：UsedRange.Row
   
6. '（2）已用单元格区域的占用的行数：UsedRange.Rows.Count
   
7. '（3）已用单元格区域的最后一行的列序数： UsedRange .Row+ UsedRange. Rows.Count-1 （重要）
   
8. '（4）已用单元格区域的第一列列序数：UsedRange.Column
   
9. '（5）已用单元格区域的占用的列数：UsedRange.Columns.Count  已用单元格区域的最后一列的列序数：UsedRange.Column+UsedRange.Columns.Count-1，UsedRange.Areas.Count>1除外（Areas（index）也返回的是Range对象）
   
10. '（6）已用单元格区域的占用的总单元格数：UsedRange.Cells.Count或 Me.UsedRange.Count，返回的只是“行数×列数”，所以无论内部有无合并单元格，此值不受影响。
    
11. '（7）语句Activesheet.UsedRange.Address返回当前工作表已使用单元格区域的地址
    
12. 
    
13.   
    
14.   
    
15.   
    
16.   '有时候我们要将多个非连续区域连接起来成为一个区域，
    
17.   
    
18.   arr = Union(Sheet5.Range("A1:D4"), Sheet5.Range("D3:H8"))

复制代码

LOYOTO

feilanga 发表于 2022-8-29 11:43
那倒不至于 只是你问的问题是基础中的基础,如果连这个都没有耐心学习的话,只会处处都是问题

帮我看下这个吧， https://club.excelhome.net/forum ... ;page=3#pid11062057

问题：保存时只显示最后一个有效值

feilanga

r = .Cells(.Rows.Count, "A").End(xlUp).Row
with是省略语句
点就代表with语句
arr = .Range("a2:d" & r) 这个r是最大行号,所以你要获取最大行号,但是你写的是啥?

陆离Lowry

LOYOTO 发表于 2022-8-29 11:34

找本书看吧。。。

micch

选4次，不就得到范围了？

LOYOTO

micch 发表于 2022-8-29 14:10
选4次，不就得到范围了？

r = .Cells(.Rows.Count, 1).End(xlUp).Row     怎么选4次，每次都是从非空格最后一行开始选的。