Pytanie : Format Data Wartość w kolumna

Cześć Ekspert,

I polubić Ekspert pomoc dodatkowy cecha w the dołączać pismo. Dlaczego the pasta dane wartość przy Column_B być zawsze z daktylowy format (dd-mmm)?. Nadzieja Ekspert móc. Dołączać the porcja the kod dla Ekspert przeczytanie. 
(1):
2:
3:
4:
5:
6:
7:
8:

Set wb = Workbooks.Open (strFilePath)
        wb. Aktywować
        intSrcRows = wb. Worksheets (1).Cells (Cells.Rows.Count, "A"). Końcówka (xlUp). Rząd
        Ustalony copyRange = wb. Worksheets (1).Range ("B6: B" & intSrcRows)
        Ustalony copyRange = Zjednoczenie (copyRange, copyRange.Offset (, 4), copyRange.Offset (, 6).Resize (, 6))
        copyRange.Copy
        
        Ustalony lcTargetCell = ThisWorkbook.Worksheets (2).Range ("A" & Rows.Count). Końcówka (xlUp). Odsadzka (1)

Odpowiedź : Format Data Wartość w kolumna

Dlaczego ty mieć wszystkie the Aktywować materiał?

I've dostać uczucie który ono można w górę twój PasteSpecial, być może tam  powodować właściwie.

Ty można także the rozkaz ty robić rzecz.
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:

Opcja Wyraźny

Okręt podwodny Copy_Paste3 ()
Ciemnawy wb Jako Workbook
Ciemnawy objFileDLG Jako Office.FileDialog
Ciemnawy strFilePath, lcTargetCell
Ciemnawy intSrcRows Jako Integer
Ciemnawy intTgtRows Jako Integer

    ChDir "D:\Data\"
    Ustalony objFileDLG = Application.FileDialog (msoFileDialogFilePicker)
    Ciemnawy copyRange Pasmo

    intTgtRows = 2

    Robić Podczas Gdy Prawdziwy
        strFilePath = ""
        Z objFileDLG
            . Filters.Add "Przodować Kartoteka", "*.xls", (1)
            .FilterIndex = (1)
            .AllowMultiSelect = Fałszywy
            . Tytuł = "Wybiórka The Workbook Od"
            Jeżeli. Pokazywać () <> (0) Wtedy
                strFilePath = .SelectedItems (1)
            Kończyć Jeżeli
        Kończyć Z

        Jeżeli Podstrzyżenie (strFilePath) = "" Wtedy Wychodzić

        Ustawiać wb = Workbooks.Open (strFilePath)

        intSrcRows = wb. Worksheets (1).Cells (Cells.Rows.Count, "A"). Końcówka (xlUp). Rząd

        Ustalony copyRange = wb. Worksheets (1).Range ("B6: B" & intSrcRows)

        Ustalony copyRange = Zjednoczenie (copyRange, copyRange.Offset (, 4), copyRange.Offset (, 6).Resize (, 6))

        copyRange.Copy

        Ustalony lcTargetCell = ThisWorkbook.Worksheets (2).Range ("A" & Rows.Count). Końcówka (xlUp). Odsadzka (1)

        lcTargetCell.PasteSpecial Pasta: =xlPasteValuesAndNumberFormats, Operacja: = _
                                  xlNone, SkipBlanks: =False, Przestawiać: =False

        ThisWorkbook.Worksheets (2).Range ("B: B") .NumberFormat = "dd-mmm"

        Application.CutCopyMode = Fałszywy
        
        wb. Zakończenie
        
        Set wb = Nic

        intTgtRows = intTgtRows + intSrcRows - (1)
        
    Pętla
    'nowy linia

    Na Błąd Życiorys Następnie

    ThisWorkbook.Worksheets (1).Columns (1).SpecialCells (xlBlanks) .EntireRow.Delete
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us